#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Scale;

my $mw = tkinit();

my $scale_var = 3;
my $scale_min = 1;
my $scale_max = 10;

$mw->Scale(
    -from => $scale_min,
    -to     => $scale_max,
    -variable => $scale_var,
)->pack;

MainLoop;