'; print $_[0]; print '

#!usr/bin/perl
##zusatz
use CGI::Carp qw(fatalsToBrowser);

my $mailto = 'ad@res.se';
my $subject = 'Mailtest';
my $mailtext = 'Dies ist ein Test';
my $Sendmail_Prog = "/usr/lib/sendmail";
printhead('Mailtest');
open(MAIL, 'sendmail') || print "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL) || print "Fehler beim Mailversenden!";

print 'Test erfolgreich';
printfoot();
sub printhead {
  print "Content-type: text/html\n\n";
  print '<html><head><title>';
  print $_[0];
  print '</title></head>'; }
sub printfoot {
  print '</body>';
  print '</html>'; }