While the code example was from an after the fact cleanup script, I'd actually like to archive the individual files as I process them in my already existing perl script, so I was looking to a perl solution first :)