use Net::Telnet;
my $t = Net::Telnet->new(
                                Time => 99999999,
                                Port => 23
                        );
$t->open(1.2.3.4);
while (my $output = $t->getline()) {
print $output;
}