Select Code to Download

#!/usr/local/bin/perl
use Tk;

...
    $txt -> insert('end', "Farienhiet is $farienhiet degrees.");
}

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