package Celcius;

#use strict;

sub TIESCALAR{
     my $class=shift;
     my $data=shift;
     return bless \$data, $class;
    }

sub STORE{
    my $self=shift;
    my $data=shift;
    return ($$data*(9/5)+32);
    }

sub FETCH{
    my $self=shift;
    my $data=shift;
    return $$data;
    }

1;