$ssh = Net::SSH::Any->new($hostname, user => $username, password => $password); $ssh->error and die "unable to connect to remote host: " . $ssh->error; $out = $ssh->capture(“who am I”); $ssh->error and die "remote command failed: " . $ssh->error; print $out;