#!/usr/bin/perl
# test_space.pl - Don Yang (uguu.org)
#
# 03/17/04


use strict;
my ($i);
local (*FILE);
$ARGV[1] && (srand $ARGV[1]);

die "$0 <outfile>\n" unless( $ARGV[0] );
open FILE, "> $ARGV[0]" or die $!;


for($i = 0; $i < 100000; $i++)
{
   print FILE (("\r", "\n", "\t", " ", "\0", "_")[int(rand 6)]);
}
close FILE;