#!perl -w

use strict;
use Net::Telnet;

# Hostinfos
my $host = '10.0.0.1';

# Anmeldeinfos
my $username = 'user';
my $password = 'password';

#my $obj = new Net::Telnet ($host);
my $obj = new Net::Telnet (Host => $host,
                                        Timeout => 10,
                    Input_log => "input.log",
                                        Dump_log => "dump.log",
                                        Timeout => "5",
                    Prompt => '/[\$%#>] $/');

my $ok = $obj->login($username, $password);
        print "Login OK\n" if ($ok =~ /1/);


my $string = 'show ver';
$ok = $obj->cmd(String => $string);
$obj->print("\n");
print "weiter gehts\n";
while (my $line = $obj->getline()) {
        last unless $line;
        print "$line\n";
        if ($line =~ /More/i) {         
                print "More gefunden\n";                
                $obj->print("\n");      
        }       print $line;    
        last if $line =~ /#/;
}
$ok = $obj->close;
exit;