#! perl
use strict;
use warnings;
use autodie;

open(my $fh, '-|', 'bash -c "echo Hello; exit 1"');
print <$fh>;

{
    no autodie;

    unless (close($fh))
    {
        die "Real pipe error: $!" if $!;
    }
}

print "status: ", ($? >> 8), "\n";