$ perl -MCGI -le " print q!<textarea>!, CGI->escapeHTML( 2), q!</textarea>! "
<textarea>2</textarea>

$ perl -MCGI -le " print CGI->textarea( 1,2,3,4) "
<textarea name="1"  rows="3" cols="4">2</textarea>

$ perl -MCGI -le " print CGI->textarea( qw! -name 1 -default 2 -riows 3 -cols 4 !) "
<textarea name="1"  cols="4" riows="3">2</textarea>

$