perl 指定したファイルを削除する

#指定したファイルを削除する
#unlink.pl

$file = <STDIN>;
chomp($file);
unlink($file) || die "$fileを削除できません:$!\n";

#実行結果
# $ perl unlink.pl 
# testtesttesttxt

初めてのPerl 第6版