use Tk; 
use strict; 
use warnings;

my $mw = MainWindow->new(); 
$mw -> title ("Cd-Oberfläche");
#$mw ->geometry ('+200+500');

MainLoop();