#!use/bin/perl

use strict;
use warnings;

use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
$telnet->open('ccclab.getmyip.com');
$telnet->waitfor('/Username: $/i');
$telnet->print('xxxx');
$telnet->waitfor('/Password: $/i');
$telnet->print('xxxx');
$telnet->waitfor('/> $/i');
$telnet->print('who');
$output = $telnet->waitfor('/\$ $/i');
print $output;


Mibbit.com Pasted on 2010-01-13 16:14:02