#!/usr/local/bin/perl -wn

use Perl::Tidy;
BEGIN { my $input_string = ""; my $output_string = ""; }

$input_string .= $_;

END {
    Perl::Tidy::perltidy(
        source      => \$input_string,
        destination => \$output_string,
        argv => '-ce -l=80'
    );

    print "$output_string\n";
}