#!/usr/bin/perl --
use strict;
use warnings;
use Tk; 
my $mw = tkinit; 
for my $ix ( 0 .. 9 ){
    my $box = $mw->Spinbox(qw/
        -from -10 
        -to   10 
        -increment .01 
        -format %05.2f 
        -width 10
        /,
    )->pack ;
    $box->set( $ix );
}
$mw->WidgetDump;
MainLoop;