use Tk;
use Tk::SpinBox;

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

$mw->Spinbox(-width => 2, -value => [0..23])->pack (-side=>'left');
$mw->Label(-text=>":")->pack (-side=>'left');
$mw->Spinbox(-width => 2, -value => [0..59])->pack (-side=>'left');
MainLoop;
[download]