my $fh; open($fh, '<', $filename) or die "can't open $filename: $!"