Here is a little example to help you get going with the "Entry" widget. Remember, there are more than one way to do things. You can simply get the text with a "print $entry->get". But this example tries to show you how you can pass the entry widget to a subroutine, in case you have multiple entry widgets.

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

my $main  = MainWindow->new();
my $entry = $main->Entry();
$entry->pack;
$main->Button(
    -text    => 'Print',
    -command => sub { do_print($entry) }
)->pack;
MainLoop;
                       
sub do_print {
    my ($widget) = @_;
    my $entered = $widget->get();
    print "The string \"$entered\" was entered.\n";
}
[download]