use Net::SMTP;
use strict;
print "SMTP-Server: ";
my $usmtp = <STDIN>;
print "\n";
print "Senden an: ";
my $empf = <STDIN>;
print "\n";
print "Absender: ";
my $absender = <STDIN>;
print "\n";
print "Betreff: ";
my $betreff = <STDIN>;
print "\n";
print "\n\n";
print "Deine Message:\n";
my $message = <STDIN>;
print "\n\n";

my $smtp = Net::SMTP->new('$usmtp');
my $smtp->mail('$absender'); 
my $smtp->to($empf);
my $smtp->data();
my $smtp->datasend("Subject: $betreff\n");
my $smtp->datasend("To: $empf\n");
my $smtp->datasend("\n");
foreach my $zeile ($message) {
my $smtp->datasend("$zeile");
}
my $smtp->dataend();
my $smtp->quit;