use strict;
use warnings;
use File::NCopy qw/copy/;

my %config = (
    server_dir => "D:/ServerPath",
    source_dir => "C:/Documents and Settings/PD/My Documents",
);

# get date in yyyymmdd format
my ($year, $month, $day) = (localtime(time))[5,4,3];
my $date = sprintf "%04d%02d%02d", $year+1900, $month+1, $day;

# create target directory
my $dest = "$config{server_dir}/$date";
mkdir $dest or die "Can not create directory $dest!";

# copy files
print "Copying files for '$date'\n";
copy \1, $config{source_dir}, $dest;