initial formatting script

diff --git a/script/format-sql b/script/format-sql
new file mode 100755 (executable)
index 0000000..86d008b
--- /dev/null
+++ b/script/format-sql
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+
+use SQL::Abstract::Tree;
+
+my $sqlat = SQL::Abstract::Tree->new({ profile => 'console' });
+
+print $sqlat->format($_) . "\n" while <>;