package C1;
use M1 v1.0 qw/--verbose_import &foo bar baz quux bazola $ztesch --dump/;
sub verify;
*verify= \&main::verify;
verify "C1::foo (5)", "Called M1::foo (5).";
...