#!/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');