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