use Tk;
use strict;
use warnings;

my $mw = MainWindow->new(-background => 'white');
$mw -> title('  Test für Scale  ');

my $status = 10;
my $label = $mw->Label(-relief       => 'ridge',
                       -width        =>  10,
                       -textvariable => \$status);
$label->pack(-padx => 10, -pady => 10);

my $scale = $mw->Scale(-from => 1, 
                       -to => 20, 
                       -resolution => 0.1,
                       -length => 400,
                       -orient => 'horizontal',
                       -variable => \$status)->pack();

MainLoop;