$ perl -e'my $pid = open my $fh, "cat |" or die $!; kill TERM => $pid'
<returns immediately>