You can consider also to use the perl function mkdir instead the system call to md. See also File::Path

consider also:

if (-d $source){opendir, readdir, chdir... do something}

instead

chdir $source or die cant cd to the source; do something

Because Daily could be also an archive