All you PERL people out there, this module kicks ass. Makes mass cisco device administration a breeze

http://search.cpan.org/~joshua/Net-Telnet-Cisco-1.10/Cisco.pm

And here's a very basic script to illistrate how simple this moldule is to use, and for your tesing enjoyment

Code:
#FUCK YOU STUPID SECURITY SCRIPT (replace with #! line)
#
#
#use strict;
use Net::Telnet::Cisco;
use Term::ReadKey

print "\nusername: ";
my $user = <STDIN>;
print "\nPassword: ";
ReadMode('noecho');
my $pass = ReadLine(0);
ReadMode('normal');
print "\n\ndevice: ";
my $dev = <STDIN>;
print "\ncommand: ";
my $cmd = <STDIN>;
print "\nWorking...";

chomp ($user, $pass, $dev, $cmd);

my $cisco = Net::Telnet::Cisco->new(Host => "$dev");
$cisco->login("$user", "$pass");

my @output = $cisco->cmd($cmd);

$cisco->close;

print "\n\n@output\n";