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 = ""; }
15 source => \$input_string,
16 destination => \$output_string
19 print "$output_string\n";