use English qw( -no_match_vars ); open my $f1, '<', $file1 or die "Cannot open file '$file1': $OS_ERROR\n";