use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10,  Errmode=>'die',Input_Log=>'out.txt',Prompt=>'/.*tstbld.*/');
$telnet->open('seahawk');
$telnet->login('tstbld', 'vilc0n');
$telnet->cmd(String=>'cd /builds/htpc2003r1/base/menu', Prompt=>'/.*htpc.*/');
$prompt = '/seahawk\:\>/';
@ret= $telnet->cmd(String=>'who', Prompt=>$prompt);
print @ret;