file: potd.pl 11: my $raw = file( $ARGV[0] ); 12: die "No such file $ARGV[0]" unless -e $raw;
get the filename and turn it into Path::Class::File