use strict;
use warnings;
use Net::SMTP;

# Konstante Angaben des Programms
my $LOCALHOST = 'localhost';
my $Mailserver = 'mail.hm.edu';

my $From = 'webmaster@netzmafia.de';
my $To = 'plate@hm.edu';
my $Subject = 'Test';
my $Text = qq~
Hallo Juergen,

wie geht es denn  so?
Dies ist ein SMTP-Test von Windows aus.
~;

my $smtp;
$smtp = Net::SMTP->new($Mailserver);    # Ein neues SMTP Objekt wird erzeugt.
$smtp->mail($From);                     # Absender mitteilen.
$smtp->to($To);                         # Empfänger mitteilen.
$smtp->data();                          # Nun folgt der Nachrichtentext.
$smtp->datasend("Subject: $Subject\n"); # Betreffszeile uebergeben.
# $smtp->datasend("To: $empfaenger\n");	# Empfänger Emailadresse wird
$smtp->datasend("\n");                  # Leerzeile --> Trennung Header/Body
$smtp->datasend($Text);                 # Nachricht senden
$smtp->dataend();                       # Ende Gelaende
$smtp->quit();                          # Verbindung beenden