Select Code to Download

foreach my $it ( @eles ){
   foreach my $part ( split '|', $it ){
       ....;
   }
}

unless ( 
          GetOptions (
...
                     );
) { die "$0 -url URL [-agent STRING -extraparts N -debug [0-2]]" }