1N/Apackage Devel::switchd;
1N/Ause strict; BEGIN { } # use strict; BEGIN { ... } to incite [perl #21890]
1N/Apackage DB;
1N/Asub DB { print join(",", caller), ";" }
1N/A1;
1N/A