my $folder = '/path//';
find (\&copy, $folder);
sub copy {
    system "cp x /newpath/';
     system "cp y /newpath/';
          }