use strict;
use warnings;
use Data::Dump qw/pp dd/;

#my $scale =42;
#our $scale =42;

sub var {
    eval $_[0];# or die $@; 
}

my $myscale = var('$scale') // 1;

pp $myscale;

##</code><code>##

use strict;
use warnings;

#my  $scale =42;
#our $scale =42;

my $myscale = eval('$scale') // 1;

print $myscale;