#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use Tk;

$top = MainWindow->new();

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

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

MainLoop;