Select Code to Download

my $dbh = DBI->connect("$connection", "$user", "$pass",
    {PrintError => 0,
...
     ora_module_name => $base_scriptname  # set module name for this s
+ession to the name of this script.
    })
    or error_check('N','Y','N',"Could Not Connect To Database: ". $DBI
+::errstr);

$rows = $source_dbh->do($ctas_sql) or {
        print sample_table_log "Create table failed at " . get_date() 
+. "\n" and
...
        update_sample_table_driver_tb($t_owner,$t_name,'FAILED') and
        exit 1
    };

Create table failed at 09/18/14 10:58:07
Value for rows is: []
...
DBI::errstr =
$source_dbh->errstr =
$source_dbh->err =

#!/usr/bin/perl
use strict;
...
  return $tmp_date;

}