sub Smtp {	#Email,Titel,Text
	use Net::SMTP;
	my $Smtpserver = '127.0.0.1';
	my $smtp = Net::SMTP->new($Smtpserver) or die $@;
	$smtp->mail($_[3]);
	$smtp->to($_[0]);
	$smtp->data();
	$smtp->datasend("Subject: $_[1]\n");
	$smtp->datasend("To: $_[0]\n");
	$smtp->datasend("\n");
	$smtp->datasend($_[2]);
	$smtp->dataend();
	$smtp->quit;
}