とりあえず現状でのエラーは
Perlのエラー出力

Name "main::PLOG" used only once: possible typo at tmp.pl line 50.
Name "main::act" used only once: possible typo at tmp.pl line 28.
Name "main::for" used only once: possible typo at tmp.pl line 21.
Name "main::isdst" used only once: possible typo at tmp.pl line 3.
Name "main::agent" used only once: possible typo at tmp.pl line 22.
Name "main::year" used only once: possible typo at tmp.pl line 3.
Name "main::yday" used only once: possible typo at tmp.pl line 3.
tmp.pl syntax OK
となっております。
どなたか分かる人、力をお貸しください。
今日はこのへんで。