#!/usr/bin/perl

use strict; 
use warnings;

use 5.010;
use POSIX;
use Time::localtime ();

my %config = ( logfilename => 'ox.log' );
my $dayfolder = $config{logfilename}."\\".POSIX::strftime("%Y-%m-%d", localtime);
print $dayfolder;