use Perl::Critic;

my $file = shift;
my $critic = Perl::Critic->new();
my @violations = $critic->critique( $file );
print @violations;

##</code><code>##

criticize mytest.pl

##</code><code>##

Variable declared in conditional statement at line 9, column 1. Declare variables outside of the condition.