Wieviel passt in ein textarea?

[pl]

use strict;
use warnings;
use base qw(IO::Socket::SSL);
use constant CRLF => "\r\n";

my %ca = $^O eq 'MSWin32' ? do{
    require Mozilla::CA;
    my $r = {
        SSL_verify_mode => 0x02,
        SSL_ca_file => Mozilla::CA::SSL_ca_file()
    };
    %$r;
} : ();



my $host = "forum.selfhtml.org";
my $m = main->new(PeerAddr => "$host:443", %ca) or die $@;

$m->print("GET / HTTP/1.0", CRLF);
$m->print("Host: $host", CRLF);
$m->print("Content-Length: 4", CRLF, CRLF);
$m->print('ASDF');

print $m->getline;

HTTP/1.1 200 OK