my $orig_import = \&Module::import;
*Module::import = sub {
    my ($module, @list) = @_;
    # do something here
    goto $orig_import;
};