package foo;
  BEGIN { print "foo's BEGIN\n"; }
  print "foo's body\n";
  sub import {
    shift @_;
    print "foo's import: @_\n";
  }
  1;

##</code><code>##

  package bar;
  use foo qw(from bar);
  1;

##</code><code>##

  use lib '.';
  use foo qw(from test.pl);
  use foo qw(from test.pl again);
  use bar;

##</code><code>##

  $ perl test.pl
  foo's BEGIN
  foo's body
  foo's import: from test.pl
  foo's import: from test.pl again
  foo's import: from bar
  $