Long Answer:   type "cisco" in the Search box at the upper left, and look through the different programs that turn up.   I can just about guaruntee you'll see one that does what you're asking for.

Medium Answer:   go to my homenode, go to the #code section, and look through the different cisco-ey programs there.   I can just about guaruntee you'll see one the does what you're asking for.

Short Answer:   go to this node "(code) Cisco sho ver" and click the "d/l code" button at the bottom.   You'll need to install the Net::Telnet::Cisco module, and I *think* you'll already have Term::ReadKey and Getopt::Long as part of the standard Perl distrubtion since 5.6 maybe.   I wrote that ditty almost two years ago, so looks kludgey to me now, but should work for you.   If you feel ambitious you could extract SNMP chunks from "(code) Poor Man's TACACS - automate CatOS and IOS password resets with Net::Telnet::Cisco and Net::SNMP" and have a more cleanly coded tool.