Perl unlink 删除文件

#!/usr/bin/perl

my $in = $ARGV[0];

open WH , ">$in" or die "$!";

print WH "Hello,world!\n";

close WH or die "$!";

;

unlink $in;