#!/usr/bin/perl
use warnings;

my $foo = 'bar';
use strict;

exit(0);
my $baz = 'quux';


##</code><code>##

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

##</code><code>##

$ 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.  (Severity: 4)
$