Perl Script for a simple rotating backup of directories