Select Code to Download

   switch($action) {
      case /adminpass(,|$)/ {
...
      } # end case /buildhostsdell/
...
}

      if ($action=~/adminpass(,|$)/) {
         print "Do adminpass ($hostname)\n" if($verbose || $debug);
...
         push @t,threads->new(\&buildhostsdell);
      } # end case /buildhostsdell/
...

 
# create a list of the command names and the subroutines they call 
my %cmds=(adminpass      =>\&adminpass,
...
        print "Command $cmd unknown\n"; 
      } 
}