#!/usr/bin/perl # test_longline.pl - Don Yang (uguu.org) # # 03/15/04 use strict; my ($i); $ARGV[0] && (srand $ARGV[0]); for($i = 0; $i < 10000; $i++) { print "Miko Miko Nurse! " x (int(rand 32)), "\n"; }