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