$ perl -wE'
open my $fh, q{|/usr/bin/foobar "test"} or die "Could not open";
say "opened";
close $fh or die "Could not close: $?"
'
opened
sh: /usr/bin/foobar: not found
Could not close: 32512 at -e line 4.