sub Email_Send { #Email,Titel,Text, From
 use Net::SMTP;
 my $Smtp;

 $Smtp = Net::SMTP->new("127.0.0.1") 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;
}