Select Code to Download

my $original_x = 3;

my $user_x = $f1->Entry( -textvariable => \$original_x )->pack;

$mw->Button( -command => \&print_entries )->pack;

...
    my $val = $user_x->cget('-text');
    print "$val\n";
}

sub print_entries
{
...
    my $val = $$var_ref;
    print "$val\n";
}

sub print_entries
{
    print "$original_x\n";
}