{ package Foo;
  my $x = ...;
  ...
  sub bar { ... }
  ...
  }