~/perl/sandbox]$ ./newtime.pl
Name "main::backup_weekly_subdir" used only once: possible typo at ./newtime.pl line 8.
Name "main::isdst" used only once: possible typo at ./newtime.pl line 17.
Name "main::backup_daily_subdir" used only once: possible typo at ./newtime.pl line 7.
Name "main::yday" used only once: possible typo at ./newtime.pl line 17.
Use of uninitialized value in -e at ./newtime.pl line 36.
Use of uninitialized value $age in numeric gt (>) at ./newtime.pl line 53.
readdir() attempted on invalid dirhandle DH at ./newtime.pl line 60.</p>