#!/usr/bin/perl -w
                                                                                
use strict;
use warnings;
                                                                                
use Tk;
                                                                                
my @days = qw(
    Sunday Monday Tuesday Wednesday Thursday Friday Saturday
);
my $day = "Sunday";
                                                                                
my $mw = MainWindow->new;
my $fr = $mw->Frame()->pack();
my $om = $fr->Optionmenu(-variable => \$day, -options => \@days,
                         -command => sub { use_day() } )->pack();
MainLoop;
                                                                                
                                                                                
sub use_day {
    print "The day you chose is ... $day\n";
}