$ perl -e'
   BEGIN {
      package Foo;
      use Exporter qw( import );
      sub f {}
      $INC{"Foo.pm"} = __FILE__;
   }

   use Foo "/./";
   f();
'
Undefined subroutine &main::f called at -e line 10.