#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::ZipsterEntry;

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

print $entry->get_varname();

MainLoop;