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

my $mw = tkinit;

$mw->Frame(-highlightbackground => "red",
           -highlightthickness => 5,
           -background => "black")->pack(qw/-fill both -expand 1/);

$mw->geometry("200x200");

MainLoop;