Help for this page

Select Code to Download


  1. or download this
    my $result = eval { close $fh };
    unless ($result) {
      print "Got an error: $@\n";
    }
    
  2. or download this
    my $result = eval {
      open my $fh, '-|', 'bash -c "echo Hello; exit 1"';
    ...
      close $fh;
    };
    ...