my $file = '/nowhere/to/be/seen';
open my $fh1, $file or warn "$file: $!\n";
open my $fh2, $file or warn "$file: $!";