Select Code to Download

$ perl -le'use File::Copy qw( Copy ); print "ok"'
"Copy" is not exported by the File::Copy module
...

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

...
my $dirpath=...
...
...
}
...