#!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;