use Net::SSH::Perl;
use threads;


sub mydate {
    my $id = threads->tid();
    my $ssh = new Net::SSH::Perl('127.0.0.1', protocol => '2', identity_files => ['fxfer.key'], debug => 1);
    $ssh->login('rob');
    print "[$id] date\n";
    my ($out, $err, $exit) = $ssh->cmd('date',"\n");
    print "[$id] out: $out\n"; 
    print "[$id] err: $err\n"; 
    print "[$id] exit: $exit\n"; 
}


for my $i (1..2) {
    print "***  #$i\n";
    my $thr = new threads \&mydate;
    $thr->join();
    print "\n";
}