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);

##</code><code>##

[/builds/htpc2003r1/base/menu]
seahawk:>who
pkmsqa      pts/0       Nov 07 03:19     (10.80.12.176)
tstbld      pts/3       Nov 07 08:40     (10.80.12.176)
tstbld      pts/4       Nov 08 02:35     (10.80.12.154)
pkmsqa      pts/5       Nov 08 04:59     (10.80.12.154)
[/builds/htpc2003r1/base/menu]
seahawk:>

##</code><code>##

[/builds/htpc2003r1/base/menu]
seahawk:>who

##</code><code>##

[/builds/htpc2003r1/base/menu]
seahawk: