Select Code to Download

print $query->textarea(-name=>'SPCtext', -cols=>50, -rows=>10, -value=
+>$testText, -force=>1);

#!/usr/bin/perl -w

...
print $query->endform();

print $query->end_html();