#!/usr/bin/perl -w
use CGI qw(:standard);
$sendmailpfad = "/usr/lib/sendmail";
$Mailsubject = "Hallo Welt";
$webmastermail = "name@domain.example";
open (MAIL,"|$sendmailpfad -t")|| die "Falsche Verweisung\n";
print MAIL "To: $webmastermail\n";
print MAIL "From: $webmastermail\n";
print MAIL "Subject: Seite wurde aufgerufen!!!\n\n";
print MAIL "Mein Text\n";
close (MAIL);