perl -wc -Mdiagnostics 830674.pl

##</code><code>##

perl -wc -Mdiagnostics -Mstrict 830674.pl