#!/usr/bin/perl

# wordpick
# Specify an optional word-count on the command line.

$datafile = "words.txt";
 
if ( $#ARGV >= 0 ) { 
   $count = $ARGV[0];
} else { 
   $count = 5; 
} 

open( DATAIN, "<$datafile" ) || die( "Can't open $datafile, $!\n" ); 
@words = <DATAIN>; 
close( DATAIN ); 
chomp( @words ); 

$wordcount = $#words+1; 
 
for ( $n = 1; $n <= $count; $n++ ) { 
   $key = int( rand( $wordcount ) ); 
   print( "$words[$key]\n" ); 
}

exit;