Basic Form

##

#!/usr/bin/perl
	
use CGI qw(:cgi-lib :standard);  


&ReadParse(%in);                 
	
$name = $in{"name"};            
$preference = $in{"choice"};    
	

print<

 Hello, $name           
You prefer  $preference.


EOSTUFF