Quick n' dirty SQL beautifier with SQL::Beautify

sql_uglyduckling.pl

#!/usr/bin/env perl 

use strict;
use warnings;
use utf8;

use SQL::Beautify;


my $sql = SQL::Beautify->new(uc_keywords => 1);
my $inp = do { local $/; <STDIN> };

$sql->query($inp);

print $sql->beautify;