|
#!/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;
|