sub write_log {
   my $id=shift;
   my $value=shift;
   print "$value\n";
   die "Der Identifier ist außerhalb des Gültigkeitsbereichs\n" if($id != 1 and $id != 2 and $id != 3);

   open(LOG, '>>', $LOGFILE) or die "$LOGFILE: open(rw) failed: $!\n";
   print LOG "-"x60,"\n"   if($id == 1);
   print LOG "$value\n"    if($id == 1) ;
   printf LOG $value       if($id == 2);
   printf LOG "$value\n"   if($id == 3);
   close(LOG);

} # End write_log