% perl -wc file.pl

##</code><code>##

% perl -Mdiagnostics -wc file.pl