perl -c test.pl
Useless use of push with no values at test.pl line 224.
Unquoted string "aa" may clash with future reserved word at test.pl line 289.
Unquoted string "details" may clash with future reserved word at test.pl line 48
9.
Unquoted string "deny" may clash with future reserved word at test.pl line 599.
Unquoted string "approve" may clash with future reserved word at test.pl line 64
8.
Unquoted string "aa" may clash with future reserved word at test.pl line 674.
Unquoted string "aa" may clash with future reserved word at test.pl line 770.
Unquoted string "adelete" may clash with future reserved word at test.pl line 10
11.
Unquoted string "adelete" may clash with future reserved word at test.pl line 10
56.
Unquoted string "aa" may clash with future reserved word at test.pl line 1250.
Unquoted string "fname" may clash with future reserved word at test.pl line 1351
.
Unquoted string "lname" may clash with future reserved word at test.pl line 1360
.
Unquoted string "aa" may clash with future reserved word at test.pl line 1599.
Unquoted string "aa" may clash with future reserved word at test.pl line 1630.
Name "main::bodyspec" used only once: possible typo at test.pl line 1472.
Name "main::month" used only once: possible typo at test.pl line 182.
Name "main::date2" used only once: possible typo at test.pl line 181.
test.pl syntax OK