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