#!./perl
BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }
use Tk;

$top = tkinit;
tkpack Scale::new($top, "-method" => \&printvalue);
tkmainloop;

sub printvalue {
    local($clientdata, $value) = @_;
    print "current value is $value\n";
}