1package Devel::switchd_goto; 2package DB; 3sub DB { $^P |= 0x80; } 4sub goto { print "goto<$DB::sub>;" } 51; 6 7