my $session = new Net::Telnet (Timeout => 30);

$session->open(Host    => $host,
               Port    => $port);

while ($session)
{ 
   my $line;
   $line=$session->getline();
   ....
}