sub doFileImportUi { ... my $lbl1 = $pg->Label(-text => 'File', -width => '10'); my $entr1 = $pg->LabEntry(-width => '30', -textvariable => \$state->{ImpFile}), $pg->Button(-text => 'Browse', -command => [ \&getImportFile, $pg, $dbh], -width => '10'); $lb1->grid($entr1); ... }