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

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

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

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

##</code><code>##

Local lexical variable "$PostTaxVLCCD" is not all lower case or all upper case at line 721, column 5. See pages 45,46 of PBP.

Local lexical variable "$TotalTaxVLCCD" is not all lower case or all upper case at line 721, column 5. See pages 45,46 of PBP.

Local lexical variable "$PreTaxVLCCD" is not all lower case or all upper case at line 721, column 5. See pages 45,46 of PBP.

Local lexical variable "$SDRPostTax" is not all lower case or all upper case at line 721, column 5. See pages 45,46 of PBP.

Local lexical variable "$Tax" is not all lower case or all upper case at line 721, column 5. See pages 45,46 of PBP.

Local lexical variable "$SDRPreTax" is not all lower case or all upper case at line 721, column 5. See pages 45,46 of PBP.

##</code><code>##

    Verbosity     Format Specification
    -----------   -------------------------------------------------------
     1            "%f:%l:%c:%m\n",
     2            "%f: (%l:%c) %m\n",
     3            "%m at %f line %l\n",
     4            "%m at line %l, column %c.  %e.  (Severity: %s)\n",
     5            "%f: %m at line %l, column %c.  %e.  (Severity: %s)\n",
     6            "%m at line %l, near '%r'.  (Severity: %s)\n",
     7            "%f: %m at line %l near '%r'.  (Severity: %s)\n",
     8            "[%p] %m at line %l, column %c.  (Severity: %s)\n",
     9            "[%p] %m at line %l, near '%r'.  (Severity: %s)\n",
    10            "%m at line %l, column %c.\n  %p (Severity: %s)\n%d\n",
    11            "%m at line %l, near '%r'.\n  %p (Severity: %s)\n%d\n"