#!/Perl/bin/perl

use strict;
use warnings;
use File::NCopy qw(copy);

my $sdir = "I:/";
my $ddir = "c:/zwischen/test/";

my $file = File::NCopy->new(recursive => 1);
$file->copy($sdir,$ddir);