Select Code to Download

while (<FILE>)
{
...
   # of indicies as long as the range is lowest to highest,
   # [9,10,2..4] is ok but 4..2 would not be ok.
}

#!/usr/bin/perl -w
use strict;
...
#300 something aaaa
#400 something aaaa
#500 something aaaa