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

package test;
warn();