BEGIN
{
  use Tk;
  our $MW = MainWindow->new();
  # other method calls.
}
our $MW;

##</code><code>##

our $MW;
BEGIN
{
  use Tk;
  $MW = MainWindow->new();
  # other method calls.
}