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

##</code><code>##

my $dbh = DBI->connect( 'DBI:Oracle:SID',
                        'username',
                        'password',
                        {
                            PrintError  => 0,
                            RaiseError  => 1,
                            AutoCommit  => 0,
                        },
                    );