#!perl

use Tk;
use strict;
use warnings;

my $original_x = 3;
my $original_y = 4;

my $mw = MainWindow -> new;
my $f1 = $mw -> Frame;
my $user_x = $f1 -> Entry (
                    -textvariable => $original_x,
                    -width => 3,
                    ) -> pack;
my $user_y = $f1 -> Entry (
                    -textvariable => $original_y,
                    -width => 3,
                    ) -> pack;
$f1 -> pack;

$mw -> Button (
       -text => "Print Entries",
       -command => [\&print_entries, $user_x -> get(), $original_y],
       ) -> pack;

MainLoop;

sub print_entries {
  print "@_\n";
}

##</code><code>##

-command => [\&print_entries, $user_x -> get(), $y_size],

##</code><code>##

-command => [\&print_entries, \$user_x -> get(), \$y_size],