Select Code to Download

~/perl/sandbox]$ ./newtime.pl
Name "main::backup_weekly_subdir" used only once: possible typo at ./n
+ewtime.pl line 8.
...
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>

Name "main::backup_weekly_subdir" used only once: possible typo at ./n
+ewtime.pl line 8.
Name "main::isdst" used only once: possible typo at ./newtime.pl line 
+16.
...
The file for this hour already exists!
Use of uninitialized value $age in numeric gt (>) at ./newtime.pl line
+ 52.
readdir() attempted on invalid dirhandle DH at ./newtime.pl line 59.

#!/usr/local/bin/perl
use warnings;
...
       }
}
unlink(@weekly_goners);

#!/usr/local/bin/perl
use warnings;
...
        unlink $files;
}
closedir DR;