Help for this page
use if $DEBUG, 'Data::Dumper' => undef;
use Data::Dumper ();
package if; ... sub unimport { shift; unshift @_, 0; goto &work } 1;