Select Code to Download

#!/usr/bin/env perl

...
    ($a=rand($.)) < $k and ($lines[$a] = $_);
}
print @lines;

$ seq 4 20 | ./rand.pl 8
19
...
9
15
11