Select Code to Download

open( PROC, "| program_a" );
sleep $n;
close PROC;

open( PROC, "| command" )

$spid = open( SH, "| /bin/sh" );
select SH; $|++;
...
    print "Damn! Lost the kid.\n";
}
close SH;