#!/usr/bin/env perl

use warnings;
use strict;
use Time::HiRes 'usleep';

select STDERR;
$| = 1;
select STDOUT;
$| = 1;

my $junk = '';
while (1) {
	$junk .= chr(rand(256)) x rand(4096);
	#print '.';
	usleep 100;
}