no strict "refs";
my $p = "main";
delete ${ $p."::" }{C};