Select Code to Download

while ($_ = $ARGV[0]) {
   SWITCH:
...
      /^--?$/o              and do{shift;             ...; last SWITCH
+};
   }
}

PARSE:
while (@ARGV) {
...
      /^--?$/o              and do {             ...; last PARSE };
   }
}