Select Code to Download

use warnings;
use strict;
...
sub calc {
    print "str: <$scale> / num: <".(0+$scale)."> \n";
}

SV = PVNV(0x1e3f350) at 0x1e59a40
  REFCNT = 2
...
  LEN = 10
  COW_REFCNT = 1
str: <22.5 > / num: <22>