The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/local/bin/perl -w
use strict;
use Tk;
use Tk::NumEntryPlain;

my $mw = Tk::MainWindow->new;

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

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

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

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

Tk::MainLoop;
__END__