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

##</code><code>##

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

##</code><code>##

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

##</code><code>##


use IPC::Open2;
use IPC::Open3;
use strict;
use IO::Select;

my %ssh_handles;
my @nodes = qw(x y z);

my $val = "/test/*/26/*testingTESTING*";

foreach my $node (@nodes) {
    my ( $wtr, $rdr, $err );
    my $pid = open2( $wtr, $rdr, "ssh", $node ) or die "Failed to open ssh, $!";
    $ssh_handles{$node}{in}  = $wtr if ($wtr);
    $ssh_handles{$node}{out} = $rdr if ($rdr);
    $ssh_handles{$node}{err} = $err if ($err);
}

foreach my $node ( sort keys(%ssh_handles) ) {
    print { $ssh_handles{$node}{out} } "ls -l /mnt/*/$val 2>&1\nexit\n";
    close $ssh_handles{$node}{out};
    my $data = join "", readline $ssh_handles{$node}{in};
    print "[", $data, "]\n";
}