
use strict 'vars';
my @lines = <>;
my $num_elements = @lines;
my $randno = int(rand($num_elements));
print $lines[$randno];





