die "Need a host" unless $host;
eval { $ssh = Net::SSH::Perl->new($host, protocol => 2) };
die "Something broke: $@" if $@; # if it matters