27 lines
450 B
Perl
27 lines
450 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',
|
||
|
|
-value=>'Hello!',
|
||
|
|
-rows=>10,
|
||
|
|
-columns=>60
|
||
|
|
),
|
||
|
|
|
||
|
|
$co->end_form(),
|
||
|
|
|
||
|
|
$co->p({-align=>center}, 'Welcome to CGI!'),
|
||
|
|
|
||
|
|
$co->end_html;
|