#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();
my $widget = 'Entry';

$mw->$widget()->pack();

MainLoop;