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

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

# Use custom parameters...
my @violations = critique( {-format => 1}, $FILE );

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