#!/usr/bin/perl 
use Net::Telnet::Cisco ; 
my $switch = $ARGV[0] ; 
print "$switch \n" ; 
my $session = Net::Telnet::Cisco->new(Host => 'ba1-1'); 
$session->login('charlie', 'letmein');  
if ($session->enable("letmein") ){ 
  @output = $session->cmd('show privilege'); 
  print "My privileges: @output\n"; 
} else { 
  warn "Can't enable: " . $session->errmsg; 
}