[COBEHOK]

mail.htm - вырезка

<form method="post" action="/cgi-bin/mail.pl">
<b>Name:</b><input name="name" size=35 maxLength=256>
<b>E-Mail</b><input name="email" size=35 maxLength=256>
<b>Message<br><textarea cols=40 name="comments" rows=8 style="height: 134px; width: 342px"></textarea>
<input type=submit value="Send">&nbsp;
<input type=reset value="Reset"></form>

mail.pl

#!/usr/bin/perl
%Form = ('email','',
  'name','',
  'comments', '');

if ($ENV{'REQUEST_METHOD'} eq 'GET') {
  @pairs = split(/&/, $ENV{'QUERY_STRING'});
} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  @pairs = split(/&/, $buffer);
} else {
  $Form{'redirect'} = '';
  goto PAGE_OUT;
}

foreach $pair (@pairs) {
  local($name, $value) = split(/=/, $pair);
  $name =~ tr/+/ /;
  $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

  if (defined($Form{$name})) {
    $Form{$name} = $value;
  }
}

$to = 'address@company.com';
$fullmsg=<<MSG;
To: $to
From: "$Form{'name'}" <$Form{'email'}>
Subject: Bla-bla-bla
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106 

$Form{'comments'}
MSG

open(MAIL,"|/usr/sbin/sendmail -i -t");
print MAIL $fullmsg;
close (MAIL);

PAGE_OUT:
print "Location: http://www.mail.ru\n\n";

Пользуйся