#!/usr/bin/env perl

use strict;
use warnings;

use Tk;

my $mw = MainWindow::->new();

my %colours = qw{
    -background red -foreground yellow
    -activebackground yellow -activeforeground red
};

my $button = $mw->Button(-text => 'Test', %colours)->pack();

MainLoop;