Select Code to Download

# An non-blocking filehandle read that returns an array of lines read
# Returns:  ($eof,@lines)
...
            ? $1 : '';
  $buf ? (0,split(/\n/,$buf)) : (0);
}

$fh = new IO::File;
open($fh,"$cmd 2>&1 |");
...
} until $eof;

close $fh;