BEGIN {
    require Tk;
    import Tk;
}
$top = tkinit;
$s = Scale::new($top, "-method" => "printvalue");
tkpack $s;
tkmainloop;

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