
=head1 NAME
randline - emit a single line chosen at random from the input.

=head1 SYNOPSIS


=head1 DESCRIPTION

[[randline]] reads the files specified in its command line
arguments, or the standard input if no files are specified,
and selects and prints a single line from the collected input

=cut

@lines = <>;
$numlines = @lines;
print $lines[int(rand $numlines)];


