Select Code to Download

   switch ($i) {
      case /-U.*/ {print LOG "Adding user to curl\n";$curla.=$i." ";}
      case /-x.*/ {print LOG "Using proxy for curl\n";$curla.=$i." ";}
      else {print LOG "Unknown argument: $i\n"}
   }

$ perl -MO=Deparse 707299.pl
...
...
continue {               <------ Added by Switch.
    last;                <------ Causes "for @links" to
}                        <------ exit after first pass.