#!/usr/bin/perl push(@INC,"."); push(@INC,"/usr/contrib/lib/perl/"); # Include a couple of libraries (cgi-lib.pl has several html type functions) require("cgi-lib.pl"); # Initialize variables $mail = "/usr/sbin/sendmail"; $ENV{"PATH"} = ""; $ENV{'IFS'} = ''; $reurl = $ENV{QUERY_STRING}; $baseurl = "http://www.avatarpress.com/"; $newurl = $baseurl . $reurl; &ReadParse; $emailAddr = $in{"visitor"}; # If we are here, then success -- print a happy message print "Content-type: text/html\n\n"; print < Adult Section Entrance

Adult Section Entrance

The section you are about to enter contains mature or adult material
for adults only. Please enter your email address to verify you are 18
or older and wish to enter this section. Optionally, you may sign up
for our mailing list at the same time.


Both options take you directly to your adult page. TAG exit 0;