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

my $mw = tkinit;

$mw->optionAdd('*foreground' => 'yellow');
$mw->optionAdd('*background' => 'black');

$mw->optionAdd('*borderwidth' => 0);
$mw->optionAdd('*insertborderwidth' => 0);
$mw->optionAdd('*selectborderwidth' => 0);
$mw->optionAdd('*highlightthickness' => 0);
$mw->optionAdd('*hightlightcolor' => 'black');
$mw->optionAdd('*selectbackground' => 'black');

my $f = $mw->Frame(-borderwidth => 0,
                   -highlightthickness => 0,
                    )->pack(-expand => 1, 
                         -fill => 'both',
                         );

$f->Label(-text => 'First label')->pack;

$f->Text(
  -highlightthickness => 0
  )->pack;

my $canvas = $f->Scrolled("Canvas",
  -highlightthickness => 0
)->pack();

MainLoop;