There is a module, called Tk::NumEntryPlain.

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

my $mw = MainWindow->new;

$mw->NumEntry(
              -minvalue => 10,
              -maxvalue => 30,
              -value    => 15
             )->pack;

MainLoop;
[download]