use strict;
use Tk;
use Tk::Button;
use Tk::FloatEntry;
my $mw = MainWindow->new();
my $fe = $mw->FloatEntry();
my $ex = $mw->Button(-text=>'exit', -command=>[$mw,'destroy'])->grid;
$fe->post(10,10);
Tk::MainLoop;
use strict;
use Tk;
use Tk::Button;
use Tk::FloatEntry;
my $mw = MainWindow->new();
my $fe = $mw->FloatEntry();
my $ex = $mw->Button(-text=>'exit', -command=>[$mw,'destroy'])->grid;
$fe->post(10,10);
Tk::MainLoop;