open(FILE1, "<file1");
open(FILE2, "<file2") or die "Can't open file2: $!\n";

##</code><code>##

use Fatal qw(open);
eval { open(FILE1, "<file1"); }
open(FILE2, "<file2");