## Pfad zu Perl

#!/usr/bin/perl

#

# Pfad zu sendmail

my $mailprog = '/usr/sbin/sendmail';
print "1";
#

# Variablendefinition

my $yourmail = 'simon@martinelli.ch';

my $from     = 'test@martinelli.ch';

my $name     = 'Martinelli';

my $vorname  = 'Simon';

my $subject  = 'Testmail';

my $body     = 'Dies ist eine Testmail.';
print "1";
#

&Send_Mail;

#
print "1";
sub Send_Mail 
print "1";
{

open (MAIL, "|$mailprog $yourmail");

print MAIL ("From: $name $vorname <$from>\n");

print MAIL ("Subject: $subject\n\n");

print MAIL ("$body");

close (MAIL);
print "1";
}