Select Code to Download

se strict;
use Tk 800.00;
...
my $tf_serial     = $lf->Entry(-width=>30)->pack(qw/-side top/);
my $label_space   = $lf->Label(-text=>'',)->pack(qw/-side top/);
my $returned      = "";

##Set up query button
my @info;
...
    my @arr = $sth->fetchrow;
    return(@arr);
}