$ perl '-mfeature=say' -cw 1174218.pl
Name "main::var" used only once: possible typo at 1174218.pl line 7.
1174218.pl syntax OK