my-perltidy.pl

#!/home/autarch/perl5/perlbrew/perls/perl-5.24.1/bin/perl

use strict;
use warnings;

use lib '/home/autarch/.perlbrew/libs/perl-5.24.1@dev/lib/perl5';

use Getopt::Long qw( :config pass_through );
use Perl::Tidy 20160302;
use Path::Class qw( file );

my $file;
GetOptions( 'file:s' => \$file );

$ENV{PERL5LIB} = join ':',
    grep {defined} (
    '/home/autarch/.perlbrew/libs/perl-5.24.1@dev/lib/perl5',
    ( $ENV{PERL5LIB} ? split /:/, $ENV{PERL5LIB} : () ),
    );

my $perltidy = '/home/autarch/.perlbrew/libs/perl-5.24.1@dev/bin/perltidy';
if ($file) {
    my $dir = file($file)->dir();

    my $profile = q{};
DIR:
    while ( $dir ne '/' ) {
        for my $file (
            $dir->file('perltidyrc'), $dir->file('.perltidyrc'),
            $dir->file('.perltidyallrc')
            ) {
            if ( -f $file ) {
                $profile = "-pro=$file";
                last DIR;
            }
        }
        $dir = $dir->parent();
    }

    exec "$perltidy $profile @ARGV";
}
else {
    exec "$perltidy @ARGV";
}