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