use CGI qw/:standard/;
my $query = new CGI;

my $cookie_in = $query->cookie('region');
if ($cookie_in) {
    if ($cookie_in eq "americas") {
        print "Location: http://www.google.com\n\n";
    }
    elsif ($cookie_in eq "canada") {
             print "Location: http://canada.gc.ca\n\n";
         }
         else {
               print "Location: http://www.belimo.org\n\n";
         }
    
}

else {
      my $checked = param(checked);
      my $region = param(region);
      if ($checked eq "yes") {
          my $cookie_out = $query->cookie(-name=>'region',-value=>$region,-expires=>'Saturday, 31-Dec-04 16:00:00                          GMT',-path=>'/',-domain=>'194.69.170.21');
          print $query->header(-cookie=>$cookie_out);
      }

      if ($region eq "americas") {
          print "Location: http://www.google.com\n\n";
      }
      elsif ($region eq "canada") {
               print "Location: http://canada.gc.ca\n\n";
           }
           else {
                 print "Location: http://www.belimo.org\n\n";
           }
}