#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow -> new ();
$mw -> minsize (200, 200);
$mw -> OnDestroy (sub {print "\a"; $mw -> bell;});
$mw -> Button (-text => 'Beenden', -command => sub {exit;}) -> pack;
MainLoop;