sub get_log {
	my $client = new Net::Telnet;
	open(LOG,">/tmp/telnet.log");
	$client->dump_log("/tmp/dump.log");
	$client->open($_[0]);
	my $prompt = '/user\@Becse/i';
	$client->prompt($prompt);
	$client->login('user','pass');
	$client->cmd('/log');
	my $cmd = 'print without-paging';
	my @lines = $client->cmd($cmd);
	$client->cmd('/');
	$client->cmd('quit');
	$client->close;
	foreach (@lines) {
		print LOG "$_\n";
	}
	close(LOG);
	return @lines;
}