#!/usr/bin/perl -w
######################################################################
# entry.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use Tk;

$top = MainWindow->new();

$label = $top->Label(-textvariable => \$text);
$entry = $top->Entry(-textvariable => \$text);

$label->pack(-side => "left");
$entry->pack(-side => "left");

MainLoop;