use Net::SSH::Perl;
$scon = Net::SSH::Perl->new ("xx.xxx.xx.xx", port=>80);
#$scon->login("username","password");
my($stdout, $stderr, $exit) = $ssh->cmd("foo");
$ssh->close;

##</code><code>##


Error: Connection closed by remote host at D:\remote.pl line 40

##</code><code>##


use Net::Telnet();
$telnet = new Net::Telnet ( Errmode=>'die', Prompt => '/\$ $/i'); 
$telnet->open(host=> 'xx.xxx.xx.xxx', Port => 80); 
$telnet->login('username', 'password'); 
print $telnet->cmd('who');

##</code><code>##


Error: timed-out waiting for login prompt at D:\remote.pl line 74