package Celcius;

sub TIESCALAR {
     my $class=shift;
     my $data=shift;

     return bless \$data, $class;
}