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

my $mw = tkinit;

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

MainLoop;