#!/usr/bin/perl
&getcookie;
if (!$v{'begin'}) { $v{'begin'}="thaiall.com";} 
print "Location: http://www.$v{'begin'}\n\n";
sub getcookie {
  use CGI qw/:standard/;
  use CGI::Cookie;
  %Cookies = fetch CGI::Cookie;
  foreach $r (keys %Cookies) {
    @rec = split(";",$Cookies{$r});
    ($name,$value) = split("=",$rec[0]);
    $v{$name} = $value;
  }
}