Anyway, a search would have been nice...
when using Super Search, you could find enough info to create a simple scritp, and if it is to hard, the Perl Babysteps 1: Your First Simple Script would be a nice start.