sub SSHconnect {
	my $ip = shift; my $user = shift; my $pass = shift;
	my %options = (  user => $user,
                 passwd =>  $pass,
                 master_stderr_discard => 1,
                 master_opts => [
                    -o => "UserKnownHostsFile=/dev/null",
                 ],
                 ssh_cmd => '/usr/local/bin/ssh'
	);
	my $ssh = Net::OpenSSH->new( $ip, %SSHOptions );
	$ssh->error and
		die( $SSH->error );
	return ($SSH);
}