#!/usr/bin/perl

use strict;
use warnings;

my $d = $ENV{HOME} . '/iotest';
mkdir $d;
my $s = 'asdfghjklqwertyuiopzxcvbnm,1234567890!@#$%^&*()';
my $t;
my $n = 0;

foreach (0..4) { $t .= "$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s\n"; }

while ($n < 100000) {
        if ($n =~ /[1-9]0000/) {
                print '.';
        }
        open F, ">$d/glom$n";
        print F $t;
        close F;
        unlink "$d/glom$n";
        $n++;
}