use Date::Calc qw(Today_and_Now);
  my ($year,$month,$day, $hour,$min,$sec) = Today_and_Now();
  my $dir="$day-$month-$year";
  mkdir($dir);

##</code><code>##


        eval { mkpath($dir) };
        if ($@) {
                print "Couldn't create $dir: $@";
        }
        chdir($dir)||die;