#!/usr/local/bin/perl

use strict;
use warnings;

use File::NCopy qw(copy);

my $src = "Dir With Spaces";
my $dst = "Target_Dir";

# Escape whitespace characters
$src =~ s/(\s)/\\$1/g;

# Copy recursively
copy \1, $src, $dst;