1. use Net::Telnet;
2. $telnet = new Net::Telnet ( Timeout=>10,  Errmode=>'die',Input_Log=>'out.txt',Prompt=>'/.*tstbld.*/');
3. $telnet->open('seahawk');
4. $telnet->login('tstbld', 'vilc0n');
5. $telnet->cmd(String=>'cd /builds/htpc2003r1/base/menu', Prompt=>'/.*htpc.*/');
6. $prompt = '/pkmsqa/';
7. print $telnet->cmd(String=>'who', Prompt=>$prompt);