Select Code to Download

my $dbh = DBI->connect( "dbi:ODBC:RETQC_SQL", "sa", "",
 {RaiseError => 1, PrintError => 1, AutoCommit => 0} ) or
die "Unable to connect: $DBI::errstr\n";

 open( OUTFILE, ">> $destination" ) or die "Couldn't open file for rea
+ding.$!\n";