Select Code to Download

# --------------------------------------------------------------------
+---------
# Start processing.
...
chomp(@Output);

foreach ( @Output ) { print "$_\n"; }

SELECT to_char(pp.SUBMITTIME, 'YYYY-MM-DD HH:MM:SS') SUBMITTIME, to_ch
+ar(pp.QUEUETIME, 'YYYY-MM-DD HH:MM:SS') QUEUETIME, to_char(pp.PREPTIM
+E, 'YYYY-MM-DD HH:MM:SS') PREPTIME, to_char(pp.STARTTIME, 'YYYY-MM-DD
+ HH:MM:SS') STARTTIME, pp.SESSIONID, pp.PLANID from \$hist_plan_prolo
+g_1 pp where pp.SUBMITTIME between '2014-06-26 05:00' and '2014-06-26
+ 08:00:00' order by pp.SUBMITTIME

ERROR:  'SELECT to_char(pp.SUBMITTIME, 'YYYY-MM-DD HH:MM:SS') SUBMITTI
+ME, to_char(pp.QUEUETIME, 'YYYY-MM-DD HH:MM:SS') QUEUETIME, to_char(p
+p.PREPTIME, 'YYYY-MM-DD HH:MM:SS') PREPTIME, to_char(pp.STARTTIME, 'Y
+YYY-MM-DD HH:MM:SS') STARTTIME, pp.SESSIONID, pp.PLANID from $hist_pl
+an_prolog_1 pp where pp.SUBMITTIME between '2014-06-26 05:00' and '20
+14-06-26 08:00:00' order by pp.SUBMITTIME'
error                                                                 
+                                                                     
+                                                                     
+                                                             ^ found 
+"$" (at char 261) expecting an identifier found a keyword

my $SQL1=<<"_SQL1_";
SELECT
...
@Output = qx { /nz/kit/bin/nzsql -d histdb  -c "$SQL1" };
$RetCode=$?;
chomp(@Output);

ERROR:  'SELECT
        to_char(pp.SUBMITTIME, 'YYYY-MM-DD HH:MM:SS') SUBMITTIME,
...
'
error                                                                 
+                                                                     
+                                                                     
+                                                                     
+                                                                     
+                                                                     
+                                                                     
+                                                                     
+                                   ^ found "'" (at char 580) expectin
+g an identifier found a keyword