$ perl -Mwarnings -c   959680.pl
Name "main::key" used only once: possible typo at 959680.pl line 232.
Name "main::savestate" used only once: possible typo at 959680.pl line 65.
Name "main::job_list" used only once: possible typo at 959680.pl line 123.
Name "main::message" used only once: possible typo at 959680.pl line 63.
959680.pl syntax OK