my $level_a_scale = $frame3-> Scale(-variable=>\$level_a, -from => 0, -to => 65535);