#!/usr/bin/perl
# From: Edward Vielmetti
# Date: Thu, 5 May 2005 14:46:56 -0400
# Subject: [43F Group] Re: shuffle theory of management
# randomline: print a random line

srand;
rand($.) < 1 && ($line = $_) while <>;
# $line is the random line
print $line;
exit (0);