ファイルを削除する

#!/usr/bin/evn perl
use strict;
use warnings;
use Path::Class;

file('tmp.txt')->touch;
file('tmp.txt')->remove or die "can't delete file";

See also:
http://d.hatena.ne.jp/perlcodesample/20080520/1211255597