I like to use CPAN modules, such as File::Util, to do things like this, because I am basically hoping to be able to slough off the dirty-work to somebody else.  :-D