Help for this page
$file = <STDIN>; chomp $file;
open(IN, $file) or die "The file $file is not present ($!)\n";