#!/usr/bin/perl  
  
sub xcgi_InitForm  
{  
  my($h) = '[a-fA-F0-9]';  
  my($buff, @params, $param);  
  my($param_name, $param_value);  
  local(*xcgi_form) = @_ if @_;  
  
  read(STDIN, $buff, $ENV{'CONTENT_LENGTH'});  
  
  @params = split(/&/, $buff);  
  
  foreach $param (@params)  
  {  
    ($param_name, $param_value) = split(/=/, $param);  
  
    $param_value =~ tr/+/ /;  
    $param_value =~ s/%($h$h)/pack("C",hex($1))/eg;  
  
    $xcgi_form{$param_name} = $param_value;  
  }  
}  
  
{  
  my(@form);  
  
  xcgi_InitForm(*form);  
  
  $url = $form{'url'};  
  print "Location: $urlnn";  
}

<form method="post" action="/cgi/redir.pl"> 
<select name="url">     
<option value="http://www.google.com">Alabama</option> 
</select> 
<input type="submit" value="Go" /> 
</form>

<form method="post" action="/cgi/redir.pl">

#!/usr/bin/perl 
print "Content-type: text/html\n\n"; 
print "Hello world<br />";