$ perl -e '
*UNIVERSAL::import = sub { print "Whoops!" };
my $x = bless {}, 'Foo';
$x->import;
no Foo'