% perl -Mdiagnostics -wc file.pl