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

$t=new MainWindow;
$l=$t->Listbox();
$l->insert('end','make this red');
$l->insert('end','make this blue');
$l->insert('end','make this green');
$l->pack;
$t->Button(-text => 'exit',-command => sub {exit;})->pack;
MainLoop;