print "copying $File::Find::file from $File::Find::dir\n";