#*****************************************************************#
  # ALLGEMEIN:                                                      #
  # GUI für X-Window / MS-Windows                                   #
  #*****************************************************************#
  
  use strict;
  use Tk;

  my ($mw, $button);
  
  # Fenster erzeugen
  $mw = MainWindow->new();
  
  # Button erzeugen
  $button = $mw->Button(-text => "Hello World", -command => \&hallo);
  
  # Ausrichtung des Buttons
  $button->pack(-fill => 'x');
  
  # Ereignisschleife: Damit das Programm nicht sofort beendet
  # und Eingaben verarbeitet werden
  MainLoop;
  

     


  #*****************************************************************#
  # Subroutine                                                      #
  #*****************************************************************#
  
 
  sub hallo
  {
      print "Hello World!\n";
  }

   
  #*****************************************************************#
  # Literaturhinweis                                                #
  #*****************************************************************#  
   

Learning Perl/Tk Graphical User Interfaces with Perl By Nancy Walsh O'Reilly 1999