or download this
#!/usr/bin/perl -w
...
print join(',', range(25,35)), "\n";
print join(',', range(50,75)), "\n";
print join(',', range(12,35)), "\n";
or download this
32,33,34,35
50,51,52,53,54,55,56,57,58,59,60,61,62,63,64
16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35