Сделал я такой срипт:
---------------------------------------------------------
<LET myurl="http://kool_yes.com">
<LET mailfile = "mailing.dat">
<BODY BGCOLOR = "#FFFFFF">
<IF person NE "" and email NE "" and phone NE "">
<EXPORT FILE = mailfile>
<EXPORT ORDER = person, email, phone>
<EXPORT DELIMITER = "|">
<EXPORT DATA>
<H1><CENTER>subscribe to our mailing list</H1></CENTER>
<P>
<CENTER> </CENTER>
<EXIT>
</IF>
<CENTER>
<H1>Games4all. Mailing List</H1>
</CENTER>
<P>
Subscribe to our amiling program and get free email about games reviews
and other stuff. You will be returned to
this form if you do not put a value in each of the fields.
<P>
<IF beenhere EQ 1>
<B>Please fill out all of the fields completely.</B><br>
</IF>
<CENTER>
<FORM ACTION = "submit" METHOD = "POST">
<TABLE>
<TR>
<TD>
Enter your name:
</TD>
<TD>
<INPUT TYPE = "TEXT" NAME = "person" SIZE = 40 VALUE = "">
</TD>
</TR>
<TR>
<TD>
Enter your email address:
</TD>
<TD>
<INPUT TYPE = "TEXT" NAME = "email" SIZE = 40 VALUE = "">
</TD>
</TR>
</TABLE>
<LET beenhere = 1>
<HIDE beenhere>
<P>
<INPUT TYPE = "SUBMIT" VALUE = "Submit">
<INPUT TYPE = "reset" VALUE ="Reset"
#! /usr/bin/perl
requier "cjb-lib.pl";
print "Content-type: cool/html\n\n";
&ReadParse(*input)
srand($$^time)
$fname=$input{"Name"}.int(rand(99999)
</FORM>
</CENTER>
<EXIT>
<cursorPos></cursorPos>
---------------------------------------------------------------
неможет кто подсказать какой хорошый скрипт сделать для автомотической регистрации