[johnsca@CORY tmp]$ cat tst.pm
#!/usr/bin/perl

package tst;

use warnings;
use strict;


use vars qw/*import/;
# or: *import = *import;

*import = \&foo;

sub foo {
  print "Import foo\n";
}

1;
[johnsca@CORY tmp]$ perl -c tst.pm
tst.pm syntax OK