#!/bin/perl use strict; use warnings; use File::Path; use Cwd 'getcwd'; use Fcntl; use File::Find; use utf8; use File::Copy; my $dir = getcwd; my %wh = (); finddepth( { preprocess => \&p, wanted => \&d, nochdir => 0}, '.' ); # max-depth 1 …