The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package Devel::switchd_goto;
package DB;
sub DB { $^P |= 0x80; }
sub goto { print "goto<$DB::sub>;" }
1;