#!/usr/bin/perl

use Perl::Critic;

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

for (@violations) {
    my ($l, $c) = m/.* at line (\d+), column (\d+)\./;
    $_ =~ s/ at line \d+, column \d+\././;
    print "$file:$l:$c:$_";
}