Select Code to Download

use strict;
use warnings;
...

print "$orig\n"; # prints 2
print "$copy\n"; # prints 7

use overload
  ... ,
  '=' => \&overload_copy,
  ... ;