#!/usr/bin/perl                                                                

#Users of unix-like operating systems may find this 
#quick and dirty random word generator useful.  
#Just rename to something like random.pl, make it 
#executable (chmod u+x filename.pl), and enjoy the 
# (psuedo) random goodness.

use POSIX;
my @words=`aspell dump master`;
my $rndnum = floor(rand($#words));
print $rndnum,' of ',$#words,' ', $words[$rndnum];