my @buffer;
push @buffer, scalar <IN> for 1 .. $N;
while (my $line = <IN>) {
    next unless rand($.) < $N;
    $buffer [rand @buffer] = $_;
}
print @buffer;