Select Code to Download

    $STH->execute(eval{join(',',@args),return(@args)});

sub get_data {
    my $statement     = shift;
...
    print "@results\n";
    return(1);
}