home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Pavilions / BrainOpera / cgi-bin / text / test-cookie1.pl < prev    next >
Perl Script  |  2017-09-21  |  332b  |  18 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # Test for cookies
  4.  
  5. do '/www-admin/httpd/cgi-bin/cgi-hacks.pl';
  6. do 'cookies.pl';
  7.  
  8. require 'flush.pl';
  9.  
  10. print "Content-type: text/html\n";
  11. #&set_cookie("id","1234567890");
  12. print "\n";
  13. &flush(STDOUT);
  14. print "<HTML><HEAD><TITLE>YO DUDE</TITLE></HEAD>
  15. <BODY>
  16. <center><h1>What's up?</h1></center>
  17. </body></html>";
  18.