I want to get both the output and status of a pipe. Here is a working example:

#!/usr/bin/perl
use strict;

open my $fh, '-|', 'bash -c "echo Hello; exit 1"';
print <$fh>;
close $fh;
my $status = $? >> 8;
print "$status\n";
[download]

Fine. It outputs

Hello
1
[download]

Now let's try to use autodie:

#!/usr/bin/perl
use strict;
use autodie;

open my $fh, '-|', 'bash -c "echo Hello; exit 1"';
print <$fh>;
close $fh;
my $status = $? >> 8;
print "$status\n";
[download]

No good, that breaks it:

Hello
Can't close(GLOB(0x10082a098)) filehandle: '' at test.pl line 7
[download]

It is the "close" statement. So we can take that out.

use strict;
use autodie;

open my $fh, '-|', 'bash -c "echo Hello; exit 1"';
print <$fh>;
#close $fh;
my $status = $? >> 8;
print "$status\n";
[download]

Now it is broken differently---it has lost the exit status:

Hello
0
[download]

I need to call close in order to get the exit status of a pipe.

So now I have settled on this ugly thing:

use strict;
use autodie;

open my $fh, '-|', 'bash -c "echo Hello; exit 1"';
print <$fh>;
{no autodie;
 close $fh;}
my $status = $? >> 8;
print "$status\n";
[download]

That seems to work, but I'm not doing any error checking on the close statement:

Hello
1
[download]