use Net::Telnet;

my ($username, $password)=("benlaw", "usertesting");

my %serverid = qw{
		testsvr1	10.159.32.21
		};


$t = new Net::Telnet (Timeout => 10, Dump_Log=> "err_dump.log", Output_log=> "err_out.log", 
	Prompt => "/\$\s/" );

@date = $t->cmd("date");
print @date;

$t->close;