Select Code to Download

#getresult 
while(<OUT>){......}

if( sysread( OUT, my $buffer, 2048 ) > 0 ){ print $buffer }

#!/usr/bin/perl
use warnings;
...
   print IN "$cmd\n";
}