#!/usr/bin/perl

$mailprog = "/usr/sbin/sendmail -t";
$mailaddr = "test\@t-online.de";
$user_email ="absender\@xxx.de";

open(MAIL, "|$mailprog") or die &error_sub($!);
print MAIL "To: $mailaddr\n";
print MAIL "From: $user_email\n";
print MAIL "Subject: Test\n\n";
print MAIL "dein Inhalt\n";
close(MAIL);

print "Content-Type: text/html\n\n";
print "Mail wurde gesendet!";

sub error_sub {
print "Content-Type: text/html\n\n";
print "Leider konnte nichts gesendet werden!";
}

exit;