Free Web Hosting by Netfirms
Web Hosting by Netfirms | Free Domain Names by Netfirms

perlform

This is an example of an interactive HTML form using Perl

#!/usr/bin/perl

 # script: customizable.pl

 

 use CGI qw/:standard/;

 

 $color = param('color') || 'white';

 

 print header,

     start_html({-bgcolor=>$color},'Customizable Page'),

     h1('Customizable Page'),

     "Set this page's background color to:",br,

     start_form,

     radio_group(-name=>'color',

                    -value=>['white','red','green','black',

                             'blue','silver','cyan'],

                    -cols=>2),

     submit(-name=>'Set Background'),

     end_form,

     p,

     hr,

     end_html;