gistfile1.txt

#!/usr/bin/env perl

use strict;
use warnings;

use Perl::Tidy 20120714;
use Path::Class qw( file );

my $file = shift;

if ($file) {
    my $dir = file($file)->dir();

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

    exec "perltidy -q $profile";
}
else {
    exec "perltidy -q";
}