use English '-no_match_vars';

opendir(DIR, $dir) 
 or mail("Line 11: Could not open $dir at $PROGRAM_NAME: $OS_ERROR\n")
 and die("Line 11: Could not open $dir at $PROGRAM_NAME: $OS_ERROR\n")

sub mail {
    my $error = $_[0];
...
}