my $ssh= Net::OpenSSH->new($host,user=>$user, passwd=>$password, strict_mode => 0, ctl_dir => "/tmp/~.libnet-openssh-perl" );