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
9 BEGIN { my $input_string = ""; my $output_string = ""; }
14 my $err=Perl::Tidy::perltidy(
15 source => \$input_string,
16 destination => \$output_string
19 die "Error calling perltidy\n";
21 print "$output_string\n";