
use strict 'vars';
my @lines = <>;
print $lines[rand @lines];

