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

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

else {
      my $checked = param(checked);
      my $region = param(region);

      if ($region eq "americas") {
          $redirect_uri = "http://www.google.com";
      }
      elsif ($region eq "canada") {
               $redirect_uri = "http://canada.gc.ca";
           }
           else {
                 $redirect_uri = "http://www.un.org";
           }

      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->redirect(-cookie => $cookie_out, -uri => $redirect_uri);
      }

      else {
            print $query->redirect($redirect_uri);
      }
    
}