$t=new Net::Telnet (Timeout->10,prompt=>'/hello.*/');
$t->open($machine);
$t->login($user,$pass);
$t->cmd("some command");