$Net::OpenSSH::debug = -1;

$ssh = Net::OpenSSH->new(
    $device, 
    user => $sshuser, 
    passwd => $sshpwd,
    ctl_dir => "/tmp/ssh.$$",
    master_opts => [-o => "StrictHostKeyChecking=no", '-vvv'],
    timeout => 90,
    kill_ssh_on_timeout => 1,
    strict_mode => 0 );

print STDERR "ssh error: " . $ssh->error . "\n";