#!/afs/athena/contrib/perl/perl
srand;
@lines = <>;
$line = $lines[int(rand(scalar(@lines)))];
print STDERR $line;
print $line;