Here is a Perl script that might be just what you are looking for (or might at least get you started):

Computer Fan Information

HTH,