|
#!/usr/bin/perl &parse; use CGI qw/:standard/; use CGI::Cookie; if (!$v{'begin'}) { $v{'begin'}="thaiall.com"; } $begin = new CGI::Cookie(-name=>'begin',-value=>$v{'begin'},-domain=>'.hypermart.net',-expires=>'+12M'); print header(-cookie=>[$begin]); print "Back and Press <b>CTRL + F5</b>"; sub parse { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/,$pair); $v{$name} = $value; } } |