c:\@Work\Perl\monks>perl -MData::Dump -le
"use strict;
 use warnings;
 ;;
 my $scale = $::scale // 42;
 print $scale;
 dd $::scale;
"
42
undef