Switch port consumption report and capacity planning.

I have taken the task to do some capacity planning in our server and
user environment. I would need to take a total of all our Catalyst
switch ports and find the number of used and unused ports. Is there a
perl script or app that will be able to help gather this information?
It seems tedious to log into every switch, get a 'show port status'
output, and export it to an Excel spreadsheet. This ..
Telecom, Cabling and VoIP continues...
Tags: cabling VoIP cat5 LAN