Sort files into date-labeled subfolders using Perl
(macosxhints.com)
