package main;

my $pi;
tie $pi, 'ConstScalar', 3.14159265358979323846;
print "$pi\n";
untie $pi ; #### NOW AS A NORMAL SCALAR
$pi = 5;                # effect!
print "$pi\n";