http://www.perlmonks.org?node_id=997253


in reply to Re^3: Finding subgraphs induced by a set of given vertices.
in thread Finding subgraphs induced by a set of given vertices.

#~ sub DEBUG(){} # disable debugging

Also note that  sub DEBUG(){} won't work to disable the  DEBUG() print function because of the empty argument list prototype (unless there's some magic associated with the  #~ thingie). Plain old  DEBUG {} would work, though.