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