sub Execute { if ($_[1] == 1) {
$sth = $dbh->prepare( $_[0] ) || &Terminate('Sorry, not Preparing');
$sth->execute || &Terminate('Not Executing');
} else {
$dbh->do( $_[0] ) || &Terminate('No Do');
warn( $DBI::errstr ) if ( $DBI::err );
$rc=$dbh->disconnect();
}