BEGIN
{
   use strict;
   use vars qw(    $mw $menu $mwm $splash
        $bgcolor $benutzer $benutzername $werte
                 $file
        );
   use Tk;
   use Tk::JPEG;

      if (!$^C && !$^P)
      {
        require Tk::Splash;
        $splash = Tk::Splash->Show("data/loader.jpg", 755, 113, "Wird geladen", 1);
      }
}

&main;  

sub main
{
    ... # 15 weitere Module Laden
    &mainwindow;
}

sub mainwindow
{
  $mw = MainWindow->new(-background => $$bgcolor{main});
  $mw->title("Blutwert-Analizer");

  my  $windowHeight  = "600";
  my  $windowWidth   = "775";
  my  $screenHeight  = $mw->screenheight();
  my  $screenWidth   = $mw->screenwidth();
  $mw->geometry($windowWidth . 'x' . $windowHeight .
                         '+' . int($screenWidth/2 - $windowWidth/2) .
                         '+' . int($screenHeight/2 - $windowHeight/2)
                      );
  $mw->resizable( 0, 0 );
  $mw->protocol('WM_DELETE_WINDOW', \&ExitApplication);
}