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

my $mw = MainWindow->new;
my $l = $mw->Foon(-background =>'blue', -foreground => 'red')->pack;
  
$l->configure(-text => 'happy');
 
MainLoop;