~/perl/sandbox]$ ./newtime.pl
Name "main::files" used only once: possible typo at ./newtime.pl line 59.
Name "main::isdst" used only once: possible typo at ./newtime.pl line 16.
Name "main::yday" used only once: possible typo at ./newtime.pl line 16.
The file for this hour already exists!
Died at ./newtime.pl line 57.