my $ssh = Net::OpenSSH->new(
    $source,
    $login ? ( user => $login ) : (),
    $password ? ( password => $password ) : (),
    #external_master => 1,
    port => $port,
    timeout => 60,
    strict_mode => 0,
    kill_ssh_on_timeout => 1,
    ctl_dir => "/tmp/.libnet-openssh-perl",
    #ctl_path => "reusable_path",
    master_opts => [-o => "StrictHostKeyChecking=no"],
    ssh_cmd => $ssh_cmd
  );