#!/usr/bin/perl
use strict;

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

##</code><code>##

Hello
1

##</code><code>##

#!/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";

##</code><code>##

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

##</code><code>##

use strict;
use autodie;

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

##</code><code>##

Hello
0

##</code><code>##

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";

##</code><code>##

Hello
1