use Tk;
use Tk::SpinBox;

my $mw = MainWindow->new;
$mw->title("Spinner");
$mw->MainWindow->Frame(-relief=>'groove');
$mw->minsize(600,300);

my $spin = $mw -> SpinBox()-> pack ( -anchor => 'nw');

MainLoop;