or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"use List::MoreUtils qw(part first_value);
...
19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
41 42 43 44 45 46 47 48 49 50 59 58 57 56 55 54 53 52 51
60 61 62 63 64 65 66 67 68 69 70