#!/usr/bin/perl -w
use strict;
foreach (0 .. 1000-1) {
    print rand_word();
    if (rand() < .9) {
	print '/';
	foreach (0 .. rand()*50-1) {
	    print uc(rand_char());
	}
    }
    print "\n";
}

sub rand_char {
    if (rand() < .5) {
	return chr(ord('a') + int(rand(ord('z') - ord('a'))));
    } else {
	return chr(ord('A') + int(rand(ord('Z') - ord('A'))));
    }
}

# Generate a random word that hasn't been used before.
my %rand_words_seen;
sub rand_word {
    my $result;
    do {
	$result = '';
	foreach (0 .. rand()*50-1) {
	    $result .= rand_char();
	}
    } until not $rand_words_seen{$result}++;
    return $result;
}

