use strict;
use warnings;

#my $scale  = 42;
my $myscale = init_myscale(1);

print "\$myscale = >$myscale<\n";

sub init_myscale
{
    my ($default) = @_;

    no strict   qw( vars );
    no warnings qw( uninitialized );

    return eval $scale ? $scale : $default;
}

##</code><code>##

23:16 >perl 2018_SoPW.pl
$myscale = >1<

23:18 >