package CORE::GLOBAL;
use subs qw(dwim);
sub dwim { print "dwim\n"; }

package test;
dwim();