I can't explain the error that you're getting effectively, it seems that there's a widget event associated with the mouse left button release click. Here is another way to do it...by using a "scrolled Listbox" and by double clicking on a month you can get its corresponding value printed to the console, also you can do the same from clicking the button as you've originally intended:

#!/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;
[download]

Update: On closer inspection, why do you want to destroy the frame "$top_f" since it contains the widget that lets you browse the months collection?

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

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.