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

printf LOG ("%-16s : %-120s\n", "Benutzername", "Genutze Quota's in %") if($id == 2);

sub write_log
{
    my( $id, @values ) = @_; # pick parameters

    # ...
    print  LOG '-'x60, "\n$values[0]\n" if $id == 1;
    printf LOG @values if $id != 1;
    print  LOG "\n"    if $id == 3;
    # ...
} # write_log

write_log( $id, $value );
write_log( $id, $format, @param );

write_log( 1, 'value' );
write_log( 2, "%-16s : %-120s\n", "Benutzername", "Genutze Quota's in %" );

my $str = q{("%-16s : %-120s\n", "Benutzername", "Genutze Quota's in %")};
$str =~ s/\\n/\n/g; # ersetze \n durch newline
my @p = $str =~ /"((?:[^"]|\\")*)"/g; # hole die einzelnen Stücke

printf LOG ("%-16s : %-120s\n", "Benutzername", "Genutze Quota's in %");

write_log( 2, "%-16s : %-120s\n", "Benutzername", "Genutze Quota's in %" );