#!/usr/bin/perl -w
use Tk;
use bignum;

$mw=MainWindow->new();
$mw->Entry(-width=>10)->pack();

MainLoop;