#!/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;
  }
}