#!/usr/bin/perl

use v5.12;
use Tk;

sub main {
    my $fenster = MainWindow->new();
    my $beenden = $fenster -> Button(
        -text => "Beenden",
        -background => 'green', # was für ein Wert ist hier wenn ich -background nicht angebe ?
        -width => 15)
       -> grid();    
        
    MainLoop();
}
main();