Help for this page
use warnings; use strict; ... copy($File::Find::name, $copy_name) or die "Unable to copy $File::Find::name to $copy_name: $!"; }