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

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