#!/usr/local/bin/perl
use strict;
use warnings;
use Tk;

my $mainWindow = MainWindow->new(-title=>"Main Window");
my $listBox = $mainWindow->Scrolled(
   'Listbox',
   -scrollbars=>'e'
   )->pack;
$listBox->insert('end',qw(Jan Feb Mar Apr May Jun Jul Aug Sept Oct Nov Dec));

$listBox->bind('<Double-1>', \&getActive);
$mainWindow->Button(
                    -text=>'print value',
                    -command=>\&getActive,
                    )->pack();

sub getActive{
    my $month;
    $month = $listBox->get('active');  #detects a selected list item
    print  $month,"\n";
    };
    

MainLoop;

##</code><code>##

my $button=$top->Button(
   -text=>'Print Value',
   -command => \&printMonth,
   #-relief=>'raised'
   )->pack();
   
sub printMonth{
    print "The Current Month is $month\n";
    }


##</code><code>##