Select Code to Download

$sth_1->execute($date_1) or die "Couldn't get values from DB: " . DBI-
+>errstr;
$sth_1->execute();

my $dbh = DBI->connect( 'DBI:Oracle:SID',
                        'username',
...
                            AutoCommit  => 0,
                        },
                    );