my $query = <<"SQL";
insert into swma_temp_table
(m_serial,m_start,m_end,m_stat,m_product)
select '$serialno',to_date('$row->[5]', 'YYYY-MM-DD'),to_date('$row->[6]', 'YYYY-MM-DD'),'$row->[17]','$row->[9]'
from dual 
where exists (select NULL from servers where host_serial='$serialno')
SQL

	my $rv = $dbh->do($query)
	or die "prepare failed: " . $dbh->errstr();
	#print $query.";\n -- \n";


##</code><code>##

	my $query = <<"SQL";
insert into swma_temp_table
(m_serial,m_start,m_end,m_stat,m_product)
select '$serialno',to_date('$row->[5]', 'YYYY-MM-DD'),to_date('$row->[6]', 'YYYY-MM-DD'),'$row->[17]','$row->[9]'
from dual 
where exists (select NULL from servers where host_serial='$serialno')
SQL

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

##</code><code>##

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

##</code><code>##

insert into swma_temp_table
(m_serial,m_start,m_end,m_stat,m_product)
select '10-1D48H',to_date('2009-09-21', 'YYYY-MM-DD'),to_date('2011-07-31', 'YYYY-MM-DD'),'Active','694275P'
from dual 
where exists (select NULL from servers where host_serial='10-1D48H')
;
 -- 

insert into swma_temp_table
(m_serial,m_start,m_end,m_stat,m_product)
select '10-2D65H',to_date('2008-04-25', 'YYYY-MM-DD'),to_date('2011-07-31', 'YYYY-MM-DD'),'Active','694273H'
from dual 
where exists (select NULL from servers where host_serial='10-2D65H')
;
 -- 

insert into swma_temp_table
(m_serial,m_start,m_end,m_stat,m_product)
select '10-2D65H',to_date('2008-04-25', 'YYYY-MM-DD'),to_date('2011-07-31', 'YYYY-MM-DD'),'Active','694275O'
from dual 
where exists (select NULL from servers where host_serial='10-2D65H')
;