Re^5: print copy source and destination

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

Comment on Re^5: print copy source and destination Download Code