use strict;
use warnings;
use Perl::Critic qw(critique);

my ($FILE) = $ARGV[0];

# Use custom parameters...

# 
# If 4 doesn't work for verbose, try putting the string
# "%m at line %l, column %c.  %e.  (Severity: %s)\n"
# (or whatever you want) in its place.

my @violations = critique( { -verbose => 4 }, $FILE );

foreach ( @violations ) {
    print $_,"\n";
}