I don't have too much experience with the grid manager, but I think the problem may be that $pg was never actually gridded in. Try saving the wdigets to variables and then calling gridRemove on them. For example:

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

Then later on, do

    $lbl1->gridRemove($entr1);
[download]

Of course, you'd want to use more meaningful variable names than those, but I think that should do the trick.

---

it says she can do math, but will she recognize 8 / 0?

We can only hope they've put in those safeguards.

Worst case scenario: She succeeds in dividing by zero, and suddenly little Tiphany-Amber's bedroom becomes the center of a howling vortex of nonspace, frying the neighborhood with sparkling discharges of zero-point energy.

- slashdot