1#!/usr/bin/perl -wn
2
3# This program was posted on the MacPerl mailing list by
4# Charles Albrecht as one way to get perltidy to work as a filter
5# under BBEdit.
6
7use Perl::Tidy;
8
9BEGIN { my $input_string = ""; my $output_string = ""; }
10
11$input_string .= $_;
12
13END {
14    my $err=Perl::Tidy::perltidy(
15        source      => \$input_string,
16        destination => \$output_string
17    );
18    if ($err){
19        die "Error calling perltidy\n";
20    }
21    print "$output_string\n";
22}
23
24__END__
25
26