$ssh = Net::OpenSSH->new(
	$device, 
	user => $sshuser, 
	passwd => $sshpwd,
	ctl_dir => "/tmp/ssh.$$",
	master_opts => [-o => "StrictHostKeyChecking=no"],
	timeout => 90,
	kill_ssh_on_timeout => 1,
	strict_mode => 0,
	master_stderr_discard => 0 # to suppres login screen
);
print ( "did ssh (".$ssh->error.")\n");