Gde gresim?

Napravio sam form mail skript ali problem je sto nakon slanja podataka ne pokazuje stranu da je poruka poslata nego pokazuje gresku. Inace podaci stizu na adresu.
Evo koda pa recite gde gresim
#!usr/bin/perl

print "Content-type:text/htmlnn";

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@values=split(/&/, $buffer);
foreach $i (@values) {
($varname,$value) = split(/=/,$i);
$value=~ tr/+/ /;
$value=~ s/%([a-fA-f0-9][a-fA-f0-9])/pack("C", hex($1));
$FORM{$name} = $value;
}



$mailprog='/usr/sbin/sendmail';


$recipient="tupa/@yahoo.com";

open (MAIL, "|$mailprog -t") or dienice("Ne moze se pokrenuti $mailprogn")

print MAIL "To: $recipientn";


print MAIL "Replay-to: $FORM{'email'}n";

print MAIL "Subject: Poruka iz formenn";

foreach $key (keys(%FORM)) {
print MAIL "$key = $FORM{$key}";
}


close(MAIL);


print "<html><head><title></title><head><body>Poslao si mail</body></html>"n;



sub dienice {
my($errmsg)=@_;
print "$errmsg tu je greskan";
print "</body></html>";
exit;
}

Potpis

tupa

U celom programu jedino mi se cini da bi greska mogla biti ovde. Ono krajnje n za novi red bi trebalo biti unutar navodnika.

Toliko.

Potpis

Možda se moje mišljenje promenilo, ali ne i činjenica da sam u pravu.

SEIK

na prvi pogled $recipient="tupa/@yahoo.com"; umesto backslash @ (ovaj forum "jede" backslash), osnovna greska


[Ovu poruku je menjao mire dana 07-30-2001 u 11:20 AM GMT]

Potpis

mire@zwer:~$ traceroute zivot.sloboda.potraga-za-srecom

Da tu je bila greska.

Potpis

tupa