--- /dev/null
+#!/usr/bin/perl -wn
+
+# This program was posted on the MacPerl mailing list by
+# Charles Albrecht as one way to get perltidy to work as a filter
+# under BBEdit.
+
+use Perl::Tidy;
+
+BEGIN { my $input_string = ""; my $output_string = ""; }
+
+$input_string .= $_;
+
+END {
+ Perl::Tidy::perltidy(
+ source => \$input_string,
+ destination => \$output_string
+ );
+
+ print "$output_string\n";
+}
+
+__END__
+