123456
use File::NCopy qw(copy);my $sourcedir = "/quellverzeichnis";my $targetdir = "/zielverzeichnis";copy \1,$sourcedir,$targetdir