so erzeugen:
my $entry = $mw->LabEntry(-textvariable => \$input)->pack();

und so löschen:
$input="";
$entry->update();