Select Code to Download

use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);    

my $pid = open my $fh, '-|', 'sleep 3; echo aaaa' // die $!; 
...
close($fh); 
#kill 'TERM', $pid;
print "end.\n";