Select Code to Download

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

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

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

Tk::Error: Can't call method "configure" on an undefined value at disp
+atch.pl li
ne 158.
...
 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)