Select Code to Download

    my ( $wtr , $rdr , $err ) = "";
    my $pid = open2 ( $wtr , $rdr , "ssh $node 'perl -e \"while(<>){ch
+omp;\$val=\$_;\$res=\`ls -l /mnt/\*/\$val\`;}\"'" );

    print {$ssh_handles{$node}{in}} $val;

   my $select = IO::Select->new($ssh_handles{$node}{out});
   if(@ready = $select->can_read(4.0))

use IPC::Open2;
...
    print "[", $data, "]\n";
}