my $scl = $mw -> Scale(-label=>"No of Celcius Values to convert :",
	 -orient=>'v',	 	-digit=>1,
	 -from=>1,		-to=>10,
	 -variable=>\$celcius,	-tickinterval=>2);