sub Function { 

sub UndoStartTime       {
	print "Explicative\n";
	my ( $dbh, $ToolTrackingID ) = @_;
	my $Statement =  "      UPDATE  JobQueue
			        SET     StartTime = NULL,
				PID = NULL
			        WHERE   ToolTrackingID = $ToolTrackingID;";
	my $sth = $$dbh->prepare ( $Statement );
	$sth->execute();
        };


local $SIG{TERM}        = \&UndoStartTime ($dbh, $ToolTrackingID); 

.
.
.
# more code


} #end Function