use File::NCopy qw(copy);

my $sourcedir = "/quellverzeichnis";
my $targetdir  = "/zielverzeichnis";

copy \1,$sourcedir,$targetdir