Select Code to Download

   given($_) {
      when (/^abc/) { $abc = 1; }
...
         die q(I don't know what to do with $foo);
      }
   }