#!/usr/bin/perl
use strict;

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