1*0Sstevel@tonic-gatepackage Devel::switchd;
2*0Sstevel@tonic-gateuse strict; BEGIN { } # use strict; BEGIN { ... } to incite [perl #21890]
3*0Sstevel@tonic-gatepackage DB;
4*0Sstevel@tonic-gatesub DB { print join(",", caller), ";" }
5*0Sstevel@tonic-gate1;
6*0Sstevel@tonic-gate
7