sub myCopy {
    my ($source, $target) = @_;

    print "Copying from $source to $target\n");
    return ©
}