sub new { bless {} }
sub set_scale {
  my $self = shift;
  $curr_scale = shift;
}

# later.....
package main;
my $temp = my_temp_convert->new;
$temp->set_scale(1);