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