Select Code to Download

my $const = \"Don't touch me!";
my $num   = \5.6;
...
eval{ $num2 = 3; };
print $@;
print "$num2\n";

#!/usr/bin/perl -w

...
              CRef   => sub { my $t = $$const_ref },
              CAlias => sub { my $t = $const_alias },
            });

mod[3]sub[3]
my[3]local[3]
...
CMod   1250000/s    29%     3%     0%     --    -1%    -6%
CAlias 1265823/s    30%     4%     1%     1%     --    -5%
CMy    1333333/s    37%     9%     7%     7%     5%     --