my $var = "12345";
$dbh = DBI->connect
("dbi:Oracle:$database",$username,$password) or die $DBI::errstr;
if(!$dbh){ print $DBI::errstr; exit 1;}

$sth1 = $dbh->prepare($deleteString);
$sth1->execute($var) or die "FAILED DELETION";