mirror of
https://github.com/stefanocasazza/ULib.git
synced 2025-10-05 19:18:01 +08:00
21 lines
469 B
Perl
Executable File
21 lines
469 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use CGI;
|
|
|
|
my($cgi) = new CGI;
|
|
|
|
print $cgi->header('text/html');
|
|
print $cgi->start_html(-title => "Example CGI script",
|
|
-BGCOLOR => 'red');
|
|
print $cgi->h1("CGI Example");
|
|
print $cgi->p, "This is an example of CGI\n";
|
|
print $cgi->p, "Parameters given to this script:\n";
|
|
print "<UL>\n";
|
|
foreach my $param ($cgi->param)
|
|
{
|
|
print "<LI>", "$param ", $cgi->param($param), "\n";
|
|
}
|
|
print "</UL>";
|
|
print $cgi->end_html, "\n";
|