#!/bin/perl  -s

$main::size ||= 10_000;

$count;

sub do_write {

    $buf = chr int(rand(25)+65);
    $message = $buf x $size;
    $message .= "\n" if $line;;
    print "$message";
    $count += length $message;
    warn "$count bytes\n";
}

while ($loop || <>) {

    do_write;
}

##</code><code>##

#!/bin/perl -n

print length($_), "\n";
print;