sub LogDb {

	my $Name = shift;
	my $Severity = shift;
	my $Message = shift;
	# Aktuelle Uhrzeit und Datum
	my $Date = strftime "%Y-%m-%d", localtime(time);
	my $Time = strftime "%H:%M:%S", localtime(time);
	
	if (!defined $Name) {
		$Name = "Name";
	}
	
	if (!defined $Message) {
		$Message = "Message";
	}
	
	if (!defined $Severity){
		$Severity = "I";
	}
	
	# define DB Parameters
	my $DBLogServer = '***';
	my $DBLogDatabase = '***';
	my $DBLogUsername = '***';
	my $DBLogPassword = '***';
	my $DBLogdbh;
	
	if ($Severity eq "A") {
		# Connect to DB
		my $DBLogConnection = "driver={SQL Server};Server=$DBLogServer;Database=$DBLogDatabase;UID=$DBLogUsername;PWD=$DBLogPassword";
		$DBLogdbh = DBI->connect("DBI:ODBC:$DBLogConnection") or die "Cannot Connect";
	}
	
	if ($Severity eq "I") {
		# Build Statement and execute
		my $DBLogStatement = "Insert Into Logging (Date,Time,Priority,Message,Modul) VALUES ('$Date','$Time','$Severity','$Message','$Name')";
		my $DBLogsth = $DBLogdbh->prepare( $DBLogStatement );
		$DBLogsth->execute();
	}
	
	if ($Severity eq "Z") {
		# Disconnct DB
		$DBLogdbh->disconnect();
	}
} 

LogDb($Modul,"A", "Module $Modul was started.");
LogDb($Modul,"I", "Here is an Information");
LogDb($Modul,"Z", "End");