
use strict 'vars';
my $line;
while (<>) {
  if (rand() < 1/$.) { $line = $_ }
}
print $line;


