eval {
  open F1, $fname1 or die "$!";
  open F2, $fname2 or die "$!";
  # some other stuff ...
};

if ($@ ne '') {
  warn "error in eval: $@\n";
}

##</code><code>##

if ($@) {
  warn "error in eval: $@\n";
}