use strict;
use warnings;
use Net::SSH();

my $Host = "ip1.ip2.ip2.ip4";
my $Port = "1234";
my $passwd = "psw";
my $username = "user";




my $t = New Net::SSH(Timeout => 30);


$t->open(Host => $Host,Port => $Port);

$t->errmode("return");

$t->waitfor('/:/');

$t->print($username);

$t->waitfor('/:/');
$t->print($passwd); 

##</code><code>##

use strict;
use warnings;
use Net::SSH::Perl();

my $Host = "ip1.ip2.ip2.ip4";
my $Port = "1234";
my $passwd = "psw";
my $username = "user";




my $t = New Net::SSH::Perl(Timeout => 30);


$t->open(Host => $Host,Port => $Port);

$t->errmode("return");

$t->waitfor('/:/');

$t->print($username);

$t->waitfor('/:/');
$t->print($passwd); 

##</code><code>##

C:\>perl SSH3.pl
Can't locate Net/SSH/Perl.pm in @INC (@INC contains: C:/Perl64/site/lib C:/Perl64/lib .) at SSH3.pl line 4.
BEGIN failed--compilation aborted at SSH3.pl line 4.