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