#!/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');
  # Enable mode
  if ($session->enable("letmein") ) {
      @output = $session->cmd('show privilege');
      print "My privileges: @output\n";
  } else {
     warn "Can't enable: " . $session->errmsg;
  }

##</code><code>##

[charlie@ion1 bin]$ goto ba1-1
ba1-1
My privileges: Current privilege level is 15
[charlie@ion1 bin]$