Help for this page
#getresult while(<OUT>){......}
if( sysread( OUT, my $buffer, 2048 ) > 0 ){ print $buffer }
#!/usr/bin/perl use warnings; ... print IN "$cmd\n"; }