my $cmd = qq{xcopy /s "$source" "$target"};
system( $cmd ) == 0
    or die "Couldn't launch [$cmd]: $!/$?";