#!/usr/bin/perl
# File: datagen

# Creates a stream of nonsence data for testing pipes, etc.

$seconds = 1 unless $seconds = $ARGV[0];
$data = 'this is junk data';
$junk = 'aaa';
$| = 1;
for(;;)
	{
	print $data, $junk++, "\n";
	sleep $seconds;
	}

