#! /usr/bin/perl
# ~/Library/Application Support/BBEdit/
#    Unix Support/Unix Filters/perltidy.pl

use strict;
use warnings;
use Perl::Tidy;

my @destination;
Perl::Tidy::perltidy(
    source      => [ <> ],
    destination => \@destination,
);

print @destination;