#!/Perl/bin/perl use strict; use warnings; use File::NCopy qw(copy); my $sdir = "I:/"; my $ddir = "c:/zwischen/test/"; copy \1,$sdir,$ddir;