Select Code to Download

    my $query = <<"SQL";
insert into swma_temp_table
...
    or die "prepare failed: " . $dbh->errstr();
    #print $query.";\n -- \n";

    my $query = <<"SQL";
insert into swma_temp_table
...
    or die "prepare failed: " . $dbh->errstr();
    $stmt->execute() or die "That serial number is not in our database
+: " . $stmt->errstr();
    #print $query.";\n -- \n";

my $dbh = DBI->connect("dbi:Oracle:host=superdb;sid=ora46t;port=1522",
+ 'nunya','beezwax')
or die ("connect failed: " . $DBI::errstr. "\n");
...
$dbh->{RaiseError}    = 0;
$dbh->{ora_check_sql} = 1;
$dbh->{RowCacheSize}  = 16;

insert into swma_temp_table
(m_serial,m_start,m_end,m_stat,m_product)
...
from dual 
where exists (select NULL from servers where host_serial='10-2D65H')
;