What are you tring to do? Do you want to let the user select some dates, then continue on with them as input to your script? Thats easy, just store your values in a global hash, and after you are done selecting with the Tk widgets, you say $mw->destroy; and your script will continue on with the values selected with Tk stored in a variable.

When the $mw or MainLoop is destroyed, the script will continue right on after the MainLoop line, doing your bidding, reading your variables .

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

my $mw = new MainWindow();

my $password = '';

my $entry = $mw->Entry(
  -show=>'*',
  -relief=>'ridge',
  -textvariable=>\$password
)->pack;

$entry->bind('<Return>',[\&somesub]);
$entry->focus;
MainLoop;

sub somesub {
    $password = $entry->get;
    print "password ->$password\n";
    $mw->destroy;
    }
    
print "$password: you can continue on here\n"; 
<>; #wait for keypress to exit;

# do your otherstuff here

exit;
[download]