25 lines
398 B
Perl
25 lines
398 B
Perl
#!/usr/local/bin/perl
|
|
|
|
use CGI;
|
|
|
|
$co = new CGI;
|
|
|
|
print $co->header,
|
|
|
|
$co->start_html(-title=>'CGI Example'),
|
|
|
|
$co->center($co->h1('Welcome to CGI!')),
|
|
|
|
$co->start_form(),
|
|
|
|
$co->textarea
|
|
(
|
|
-name=>'textarea',
|
|
-rows=>10,
|
|
-columns=>60
|
|
),
|
|
|
|
$co->end_form(),
|
|
|
|
$co->end_html;
|