Help for this page

Select Code to Download

Select or download this

if (!-e $file) {
   die "'$file' does not exists';
...
   die "`$file' is a directory, not a plain file";
}
# and so on

Select or download this
open my $handle, '<', $file or die "Can't open `$fil'e for reading: $!"