Select Code to Download

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

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