little help, eh?

Anybody out there know of a Perl module that will take a UserAgent string as input and produce a browser name as output? No version info, no nothing fancy; I just want something that I can feed a big list of UserAgent strings into and get output binned by major browser type (i.e., Mozilla, Opera, LWP, wget, MSIE, "other") out the other end -- basically what Analog does for the 'Browser Summary' report. Just trying to keep the wheel re-invention down to a dull roar while I once again crawl through web log parsing hell...