use Net::Telnet;
use strict;
my $filename="dumplog.txt";

my $telnet = new Net::Telnet (Timeout=>10, Errmode=>'die',Prompt=>'/\S*#$/i');

my $switch=$ARGV[0];
my $timeout = 10;

$telnet->open($switch);
unlink('input.log');
$telnet->input_log('input.log');
$telnet->waitfor('/Username: $/i');
$telnet->print('user');
$telnet->waitfor('/Password: $/i');
$telnet->print('geheim');

unlink('script.log');

$telnet->cmd('sh mac');
while (my $line=$telnet->getline(Timeout => $timeout, Errmode => 'return')) {
	last unless $line;
	if ($line =~ /More/i) {
		print "More gefunden\n";
		$telnet->print('\n');
	}
	print $line;
	last if $line =~ /#/;
}

$telnet->close;