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');