3 use SQL::Abstract::Tree;
4 use Getopt::Long::Descriptive;
6 my ($opt, $usage) = describe_options(
8 [ 'profile|p=s', "the profile to use", { default => 'console' } ],
9 [ 'help', "print usage message and exit" ],
12 print($usage->text), exit if $opt->help;
14 my $sqlat = SQL::Abstract::Tree->new({ profile => $opt->profile });
16 print $sqlat->format($_) . "\n" while <>;