Oof. Updated.

I ran a little test script but my .perlcriticrc had got borked somehow so perlcritic ran with -5 (why is that the default, anyway?), and the rule has a severity of 4. I didn't notice anything wrong because "Code before strictures enabled" has a severity of 5, so it did throw an error. Thanks for the correction. (When I first went to answer the question I thought I remembered there was a rule!)

#!/usr/bin/perl
use warnings;

my $foo = 'bar';
use strict;

exit(0);
my $baz = 'quux';
[download]

$ perlcritic 1140661.pl
Code before strictures are enabled at line 3, column 1.  See page 429 
+of PBP.  (Severity: 5)
[download]

$ perlcritic -4 1140661.pl
Code before strictures are enabled at line 3, column 1.  See page 429 
+of PBP.  (Severity: 5)
Unreachable code at line 9, column 1.  Consider removing it.  (Severit
+y: 4)
$
[download]