BEGIN {
  package G;
  $INC{q/G.pm/}=__FILE__;
  sub import { warn qq{@_ }; }
}

use G(); use G; use G;
__END__
G  at - line 1.
G  at - line 1.