use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP;
my $mailto = 'ich-22@web.de';
my $subject = 'Dies ist ein Test!!!';
my $mailtext = 'Dies ist der 26.04.1992. Dies ist der Mailtesttext';
$smtp = Net::SMTP->new('web.de');
$smtp->mail($ENV{USER});
$smtp->to($mailto);
$smtp->data();
$smtp->datasend("To: $mailto\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("$mailtext\n");
$smtp->dataend();
$smtp->quit
print "Content-type: text/html\n\n";
print '';
print '';
print '';
print '';
print 'hatz geklappt???!!
Ich hoff es geht!!!
';
print 'Die mail sollte geschrieben worden sein!!';
print '';