Shell Programming and Scripting

#!/usr/bin/perl -w
use Net::SSH::Perl

$host = '192.168.0.114';
$username = 'root';
$login_passwd = 'password';

my $ssh = Net::SSH::Perl->new($host);

$ssh->login($username, $login_passwd);

while(<>) {
$cmd = $_;
my($stdout,$sterr, $stderr) = $ssh->cmd("$cmd");
print "\n$stdout\n$stderr       ";
print "logging out from the server " if eof;
}

system("ssh -i /path/to/authfiles user@hostname")

#!/usr/bin/perl -w
use strict;
use Net::SSH::Perl;
my $host = '192.168.0.114;
my $username = 'pratap';
my $login_passwd = 'password';
my $ssh = Net::SSH::Perl->new($host, $user);
$ssh->config->set('interactive', 1)
    unless defined $ssh->config->get('interactive');
$ssh->login($username, $login_passwd);

if ($cmd) {
    my($out, $err, $exit) = $ssh->cmd($cmd);
    print $out if $out;
    print $err if $err;
}
else {
    eval "use Term::ReadKey;";
    ReadMode('raw');
    eval "END { ReadMode('restore') };";
    $ssh->shell;
    print "Connection to $host closed.\n";
}