上のつづき...
【作成したﾌﾟﾛｸﾞﾗﾑ】
$host = '192.168.x.x';
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 20,
Port => 110,
);
$t->open($host);
@lines = $t->waitfor('/ /');
print @lines;

$t->print("user [email protected]");
@lines = $t->waitfor('/ /');
print @lines;

$t->print("pass xxxxx");
@lines = $t->waitfor('/ /');
print @lines;
@lines = $t->waitfor('/ /');
print @lines;

$t->print("list");

$t->print("quit");
$t->close($host);