my $ses = new Net::Telnet();
$ses->open(Host => $hostname,
	Port => $port);

##</code><code>##

$logtxt = $ses->dump_log();
&logit;