my $button_submit = $lf->Button(
    -text => 'Search',
    -command => \&get_data
)->pack(qw//);

##</code><code>##

my @info;
my $button_submit = $lf->Button(
    -text => 'Search',
    -command => \@info = \&get_data
)->pack(qw//);

##</code><code>##

$varname->configure(-textvariable => 'helloo');

##</code><code>##

Tk::Error: Can't call method "configure" on an undefined value at dispatch.pl li
ne 158.
 [\&main::__ANON__]
 Tk callback for .frame.button
 Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 228
 Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 111
 (command bound to event)