sub zeit_mit_Albannach {
  # new function calling sprintf only once
  my @zeit = localtime;
  my $wtag = ("So","Mo","Di","Mi","Do","Fr","Sa")[$zeit[6]];
  sprintf("$wtag %02d.%02d.%4d - %02d:%02d", 
          $zeit[3], $zeit[4]+1, $zeit[5] + 1900, $zeit[2], $zeit[1]);
}