#!perl -w

use strict;
use Net::Telnet;

# Hostinfos
my $host = '10.0.0.1';

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

# Parameter für Verbindung
my $obj = new Net::Telnet (     Host => $host,
                                                        Timeout => 10,
                                                        Input_log => "input2.log",
                                                        Dump_log => "dump2.log"
);


# öffne Verbindung
$obj->open($host) 
        or die "Kann Verbindung nicht öffnen: $obj->errmsg\n";

# log dich ein
$obj->login($username, $password)
        or die "Kann mich nicht einloggen: $obj->errmsg\n";

# führe Kommando aus
$obj->print('show ver') 
        or die "Kann Kommando nicht ausführen: $obj->errmsg\n";
sleep(1);

        
# gehe Output durch
while (my $line = $obj->get(Timeout => '3', Errmode => 'return')) {
        last unless $line;
        if ($line =~ /More/i) {
                #print " ##### More gefunden #####\n";
                #$obj->print("\n"); # Newline ghet nur eine Zeile weiter
                $obj->print(" ");       # Space geht ganzen Block weiter
        }
        print $line;    
        last if $line =~ /#/;
}
        
$obj->close;
exit;