Select Code to Download

$ perl -Mstrict -MSQL::Abstract -wE 'say +(SQL::Abstract->new->select(
+"foo", "bar", { user => "nwiger", -or => [ workhrs => { ">" => 20 }, 
+geo => "Asia" ]}))[0]'

SELECT bar FROM foo WHERE ( ( workhrs > ? OR geo = ? ) AND user = ? )