her er en i perl:
#!/usr/bin/perl
use Mail::Sender;
use CGI;
$q= new CGI;
$smtp = new Mail::Sender {smtp=>'localhost', from => 'webmailer@localhost'};
$name = $q->param("fn");
$lastname = $q->param("ef");
$adr = $q->param("ad");
$postnr = $q->param("pn");
$postdi = $q->param("pd");
$telenr = $q->param("tn");
$epost = $q->param("ep");
my $msg = << "EOF";
Til: Den ansvarlige for Webmail\
Fornavn:\t$name\
Efternavn:\t$lastname\
Adresse:\t$adr\
Postnummer:\t$postnr\
Postdistrikt:\t$postdi\
Telefon:\t$telenr\
Email:\t$epost\
EOF
$smtp->MailMsg({to => 'webmail@localhost',
subject => 'Webmail bestilling af materialer',
msg => $msg});
$smtp->Close;
print $q->header;
print <<"EOP";
<HTML>
<Head>
<Title>Webmailer - bestilling</title>
<style type="text/css">
<!-- H1, H2, b { font-family: Verdana }P, td, ol, ul { font-family: Verdana }a
{ text-decoration: none; color: "#000080"; font-size: 12pt; }-->
</style>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000080" >
<Center><H1>Tak for din bestilling!</H1><BR>
<P>.kolding-rytmiske-kor.dk sender skemabrochuren til<BR>
Navn:<B> $name $lastname</B><BR>
Adresse:<B> $adr</B><BR>
Postadresse: <B> $postnr $postdi</B><BR>
<BR>
Med venlig hilsen<BR>
Kolings rytmiske kors Webmailer</P>
mailer.gif - 1570 Bytes"><BR><BR>
<A HREF='
http://www.kolding-rytmiske-kor.dk' TARGET="mainpage" >Tilbage</A><BR>
</center>
</body>
</html>
EOP
exit 0;
