#! /usr/local/bin/perl -w
#
# pickone - Pick a random line from a file.
# -- From Perl Cookbook p.284
#

srand;
rand($.) < 1 && ($line = $_) while <>;
print $line;