use Perl::Tidy; Perl::Tidy::perltidy(); #### use Perl::Critic::Command qw< run >; run();