$ perl -le'use File::Copy qw( Copy ); print "ok"'
"Copy" is not exported by the File::Copy module
Can't continue after import errors at -e line 1
BEGIN failed--compilation aborted at -e line 1.

$ perl -le'use File::Copy qw( copy ); print "ok"'
ok

##</code><code>##

...
my $dirpath=...
...
while (defined (my $file = ...) ) {
...
foreach my $filename (...) {
...
}
...