Select Code to Download

$SQLString =<<END_OF_SQL;
...

$db->do( $SQLString, undef, $xvar, $yvar, $zvar )
    or die "Can't execute $SQLString: " . $db->errstr();