All pastes #909958 Raw Edit

GS42K0

public text v1 · immutable
·published 2008-02-19 17:22 UTC
rendered paste body
#/usr/bin/perl -w
use bytes;

my $max_size = 1024;

$/ = \$max_size;

while(<>) {
	print "chunk:", length $_,"\n", $_,"\n";
}
print "OK\n";