Help for this page
open(FILE, $filename);
my $fh; open($fh, '<', $filename) or die "can't open $filename: $!"