my @dateArray   = split(/\s+/, scalar localtime);
   my $time        = $dateArray[3];
   my $dateYear    = $dateArray[4];
   my $dateMonth   = $dateArray[1];
   my $dateDay     = $dateArray[2];
   my $dateWeekday = $dateArray[0];

   $Header{'Date'} = "Date: ".$dateWeekday.", ".$dateDay." ".$dateMonth." ".$dateYear." ".$time." +0200";
   print $Header{'Date'};