#!/usr/bin/perl -w
use strict;
use Tk;

my $mw=tkinit;
$mw->optionAdd("*background"=>'lightblue','userDefault');

$mw->Listbox->pack->insert(0,qw/a listbox/);
$mw->Text->pack->insert('1.0','text widget');
$mw->Entry->pack->insert(0,'entry widget');

MainLoop;