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]

Thanks that looks exactly like what I need!

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::Spinbox;

#see also JComboBox

my $mw = MainWindow->new;
$mw->title("Spinner");

$mw->fontCreate('big',
        -family=>'courier',
        -weight=>'bold',
        -size=>  24);
       
my $sp1 = $mw->Spinbox(-width => 2, 
              -font => 'big',
              -command => sub{ &show_set },
          -value => [0..23])->pack (-side=>'left');

$mw->Label(-text=>":")->pack (-side=>'left');

my $sp2 = $mw->Spinbox(-width => 2, 
             -font => 'big',
             -command => sub{ &show_set },
         -value => [0..59])->pack (-side=>'left');

MainLoop;
###########################

sub show_set{
   print "@_\n";
}
[download]

Thanks, after checking out both NumEntry and Spinbox I chose Spinbox as it seems the better one (at least for my specific use-case).

It exists (the basics are the basics), see spin.pl, Spinbox Demonstration listed in widget under Entries and Spin-boxes as 4. Spin-boxes.

$ perl -MTk -le " print Tk->findINC(q,demos/widget_lib/spin.pl,) "
C:/perl/site/5.14.1/lib/MSWin32-x86-multi-thread/Tk/demos/widget_lib/spin.pl