#!perl

use strict;
use warnings;
use Tk;
use Tk::Spinbox;

my $mw = tkinit();

my $sb = $mw->Spinbox(
	-justify	=> 'center',
	-from		=> 1,
	-to		=> 99,
	-increment	=> 1,
	-format		=> '%3.0f',
	-width		=> 10,
	)->pack;

$mw->MainLoop();