#!/usr/local/bin/perl
use strict;
use warnings;
use Perl::Tidy;

my $perltidyrc
    = '--perl-best-practices '
    . '--nostandard-output '
    . '--nostandard-error-output '
    . '--noblanks-before-comments '
    . '--noblanks-before-subs';

Perl::Tidy::perltidy( perltidyrc => \$perltidyrc );