Help for this page

Select Code to Download

Select or download this

sub dumpResultsToFile {
    my ( $query ) = @_;
...
    # Close the output file
    close FILE or die "Error closing result file: $!\n";
}

Select or download this

dumpResultsToFile ( <<"    END_SQL" );
    SELECT TADA.fileName, TADA.labelName
    FROM   TADA
    END_SQL