#!perl

use strict;
use warnings;
use Tk;

my $mw = tkinit(-bg => '#87deaa',);

$mw->MainLoop();