Select Code to Download

# prepare query
my $query = <<"EOSQL";
...

# disconnect from database
$dbh->disconnect;

my $dbh = DBI->connect ($dsn, $user, $pass, {
    RaiseError         => 1,
    PrintError         => 1,
    ShowErrorStatement => 1,
    });