#!C:\Perl\bin\perl.exe
use strict;
use warnings;
use Diagnostics;
use File::Copy;
use Cwd 'chdir';

my $source = "d:/Perl/Daily" unless $source;
my $dest = "d:/Perl/Daily" unless $dest;

chdir "$source"
    or die "Dying - can't cd to $source: $!\n";

$date = "1104";

system("md $date");
copy("AddressDevCHUBldgProj.csv", "$source/1031/");