{ my $old = \© 
  *copy = sub { 
    print "copy( '$_[0]', '$_[1]')\n";
    goto &$old
   }
};