#!/usr/local/bin/perl

use Tk;
use Tk::NumEntry;
use strict;

my $mw = new MainWindow;

my $nume = $mw->NumEntry( -command => sub { print "Value = ",@_,"\n" });

$nume->pack(-side => 'top', -fill => 'x');

$nume = $mw->NumEntry(
		-minvalue => 10,
		-maxvalue => 100,
		-defaultvalue => -2,
		-command => sub { print "Value = ",@_,"\n" }
);

$nume->pack(-side => 'top', -fill => 'x');

MainLoop;