use Net::SSH;
    my $ssh = Net::SSH->new($host);
    $ssh->login($user, $pass);
    my($out, $err) = $ssh->cmd($cmd);