use Tk::ZipsterEntry;

my $entry = $mw->ZipsterEntry(-textvariable => \$irgendwas, -varname => '$irgendwas')->pack();