Select Code to Download

use strict;
my $sql = <<'--SQL--';
...
);

# (continues like the others...)

use strict;
my $sql = <<'--SQL--';
...
$Data::Dumper::Terse = 1;
($\, $,) = ("\n", ",\n");
print map { Dumper $_ } @out;

'$a',
'=',
...
'.',
['STRING','"to do"'],
';'