#*****************************************************************#
  # ALLGEMEIN:                                                      #
  # Systemzeit ermitteln und formatieren                            #
  #*****************************************************************#
  
  use includedatei;
    
  $jetztzeit = includedatei->&datumzeit();

  
  #*****************************************************************#
  # Subroutine                                                      #
  #*****************************************************************#  
  
  sub datumzeit()
  {
    # Datum und Zeit formatiert ausgeben

    my ($sek, $min, $std, $mtg, $mon, $jhr, $wtg, $jtg, $szt) = localtime(time);

    # Monate beginnen bei O
    $mon += 1;

    # Jahre beginnen bei 1900
    $jhr += 1900;

    # Ergebnis wird formatiert in Variable gespeichert
    # 10:15:22 20.02.2006

    return sprintf("%02d:%02d:%02d %02d.%02d.%04d" ,$std,$min,$sek,$mtg,$mon,$jhr);
  }