#! perl -slw use strict; use IO::Socket::INET; my $line = join '', 'a'..'z', 0 .. 9, 'A'..'Z'; # 62 +crlf = 64 bytes. my $server = IO::Socket::INET->new( 'localhost:12345' ); print $server $line for 1 .. 64; ## 4kb buffer load print $server $line for 1 .. 32; ## Only 2kb print $server 'This is the last line'; close $server;