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;
}
tupa