#!/usr/bin/perl -w
srand;
print "I will now read in a list of strings and output an item.\n";
print "(You might need to use CTRL-D or CTRL-Z to stop the input.\n";
@list = <STDIN>;
print $list[rand(@list)];