$ 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
  $