#!/Perl/bin/perl

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

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

copy \1,$sdir,$ddir;