c:\@Work\Perl\monks>perl -le
"use 5.010;
 ;;
 use strict;
 use warnings;
 ;;
 sub extscale ();
 ;;
 my $myscale = extscale // 1;
 print $myscale;
 ;;
 sub extscale () {
   no strict 'vars';
   no warnings 'once';
   return $scale;
   }
"
1