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

##</code><code>##

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