1package Devel::switchd;
2use strict; BEGIN { } # use strict; BEGIN { ... } to incite [perl #21890]
3package DB;
4sub DB { print join(",", caller), ";" }
51;
6
7