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