my $newdir = "$directory\/$month\/$day"
if (!(-e $newdir)) {
 mkdir $newdir, 0755 or die "couldn't mkdir $newdir because: $!\n";
}