use strict; 
use warnings;
use Tk;

my $mw = MainWindow->new();
$mw->Button(-text => 'Fenster schließen', -command => sub{$mw->destroy();})->pack();

Tk::MainLoop();