use CGI;
$co=new CGI;
#some code here
$co->center($co->textarea
(
-name=>'textarea',
-default=>"@source",
-rows=>20,
-columns=>80,
)),
#other code here