my $const = \"Don't touch me!";
my $num   = \5.6;
local *const2 = \"Another string";
local *num2   = \3.14159;
print "[$$const][$$num][$const2][$num2]\n";

### try and modify it
eval{ $num2 = 3; };
print $@;
print "$num2\n";