Select Code to Download

eval {
  open F1, $fname1 or die "$!";
...
if ($@ ne '') {
  warn "error in eval: $@\n";
}

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