sub Blat {
	my $Mail_Prog = 'blat.exe';
	my $commandline = $Mail_Prog;
	$commandline .= " -"; 											# attach no file
	$commandline .= " -to xxx\@yyy.de";						# To
	$commandline .= " -f \"$Formular{Name} $Formular{Email}\"";	# From
	$commandline .= " -s \"Formular Homepage (Blat)\"";				# Subject
	$commandline .= " -body \"";			 						# Body
	$commandline .= &MailBody;										# Body
	$commandline .= "\"";	  										# Body
	$commandline .= " -log blatlog.txt";							# Create Logfile for testing
	# Senden der Email
	system($commandline);