cookies

#!/usr/local/bin/perl
use CGI;
$query = new CGI;
$thisCGI = $query->url();

# try to get a cookie named 'cookThis'
$cookThis = $query->cookie(-name=>'cookThis');

# IF the cookie named 'cookThis' alread exists
# set it value to null.
# ELSE set it's value to 'Some Cookie value here'.
# You should be able to watch the contents of the cookie file
# change back and forth with each run of this script.

if ($cookThis) 
    { 
    $cookie = $query->cookie(-name=>"cookThis",
        -value=>'',
        -expires=>"+1h");
    }
else
    {
    $cookie = $query->cookie(-name=>"cookThis",
        -value=>"Some Cookie value here",
        -expires=>"+1h");
    }

print $query->header(-cookie=>$cookie);
print &quot;<BR>CookThis is $cookThis<BR>&quot;; 
print $query->start_html(-title=>&quot;cook this&quot;);
print $query ->start_multipart_form('POST',&quot;$thisCGI&quot;);
print '<BR>',$query->submit('doWhat','cook');
print $query->end_form;
print $query->end_html;
[\code]

If you are going to use CGI.pm, you will need to let it build your HTML header stuff.

There are lots of other parameters you can use.  For a full explanation of the various parameters, see 'perldoc CGI.pm'.  If you need help understanding the Object syntax, I can explain that a little, also.

'hope this helps.  
 
 
 keep the rudder amid ship and beware the odd typo