Давайте разберем более детально: допустим вашего партнера зовут Вася, попросим его разместить код такого вот баннера Сама ссылка вида index.cgi?id=vasya указывает, что переменная ID равняется Вася. Человек кликнув по ссылке попадает на главную страницу вашего сайта. Теперь пропишем в файле index.cgi ссылку на старницу заказов, впишем print "Заказать Это при условии что мы в начале скрипта использовали: if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $bufer, $ENV{'CONTENT_LENGTH'}); } elsif ($ENV{'REQUEST_METHOD'} eq "GET") { $bufer=$ENV{'QUERY_STRING'}; } @pairs = split(/&/, $bufer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge; $value =~ tr/+/ /; $value =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge; $value =~ s/(.|\n)*-->//g; $value =~ s/\;/;/g; $value =~ s/\Ўь//g; $value =~ s/\ $value =~ s/\>/>/g; $value =~ s/\\//g; $value =~ s/\n/ /g; $FORM{$name} = $value; } Проще говоря каждую переменную можно определять теперь как $FORM{переменная}, т.е. если смотреть index.cgi?id=vasya, и потом сделать print "$FORM{id}"; Перл выдаст "vasya" Так вот, кликнув по ссылке zakaz.cgi?id=$FORM{id} Человек попадет на форму заказа.Допустим сама форма имеет вид 4 текстовых полей. например print '
';
Чтобы узнать, кто привел человека добавим скрытое поле hidden:
Теперь в файле заказа просто добавим переменную $FORM{id} где нужно и все готово! Удачи вам!