use vars qw(@EXPORT $orig_import);
use Exporter 'import';
sub my_import {
    print "Imported\n";
    goto &$orig_import;
};

BEGIN { # Install our own import routine over import:
    $orig_import= \&import;
    *import= \&my_import;
};