Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    my @sample = $iter->();
    ProcessSample( @sample );
}

 > perl lcd.pl 16 3 | more
Not shuffling ( 100 .. 115 )
...
Not shuffling ( 100 .. 115 )
( 102 103 104 )
...