C:\Documents and Settings\myself> ppm install Tk

##</code><code>##

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

my $mw    = new MainWindow();
my $a_btn = [ "Of course!", "No way" ];
my $dbox  = $mw->DialogBox(-buttons => $a_btn);
my $lbl   = $dbox->add("Label", -text => "Isn't this a great program?");
$lbl->pack;
$dbox->Show();
# Do something with the answer, etc. ...
MainLoop;