16 lines
314 B
Perl
16 lines
314 B
Perl
#!/usr/bin/perl -Tw
|
|
|
|
use strict;
|
|
use CGI;
|
|
|
|
my($cgi) = new CGI;
|
|
|
|
print $cgi->header;
|
|
my($color) = "blue";
|
|
$color = $cgi->param('color') if defined $cgi->param('color');
|
|
|
|
print $cgi->start_html(-title => uc($color),
|
|
-BGCOLOR => $color);
|
|
print $cgi->h1("This is $color");
|
|
print $cgi->end_html;
|