#! perl.exe
use strict;
use Algorithm::Numerical::Sample  qw /sample/;
open FH, $ARGV[0] or die "can't open infile: $!";
open FH2, ">$ARGV[1]" or die "can't open outfile: $!";
print FH2 sample (-set => [<FH>], -sample_size => $ARGV[2]);
close FH;
close FH2;
[download]