im trying to connect to a machine thru telnet connection then once im connected and in the $ prompt already i have to run a command like $manage then when i run $manage command it should have an output like TeMIP> prompt then in this new prompt i will execute another command like TeMIP>show then this will ouput something. how can i run the $manage to go to the TeMIP> prompt and run a command?

#!/usr/local/bin/perl -w
use Net::Telnet;

$uID = "uname"; $uPASS = "pwd";
$telnet = new Net::Telnet ( Timeout=>20,
                            Errmode=>'die',
                            Prompt => '/\$ $/i');
                
$telnet->open('hpsgncw.sgp.hp.com');
$telnet->login($uID, $uPASS);
print $telnet->cmd('manage');
print $telnet->cmd('exec manage');
print $telnet->cmd('show mcc 0');
[download]