BITTE BITTE HELFT MIR

[Michael]

Hallo
Ich möchte  das 4 zeilen untereinander mit Test in die Datei Michael.dat geschrieben werden.
Aber dieses script zeigt mir  test auf dem Bildschirm. (aber nur einmal)

sub approveNew {
  for( split(/,/, $FRM{id}) ) {
    my $md = dbselect("$DDIR/dbs/review.db", $_);
    next if( !$md );
    shift @{ $md };

fjoin  ("$DDIR/members/$_.dat",  @{ $md }                                          );
    fjoin  ("$DDIR/members/$_.cnt",  0, 0, 0, 0, '-', $$md[12], $$md[8], 0, $$md[10], 0);
    fcreate("$DDIR/members/$_.sts"                                                     );
    fjoin  ("vote/data/$_.dat",                                                        );
    fjoin  ("vote/data/$_.ip"                                                          );

open(FILE, "vote/data/michael.dat");
    print "test\n\n";
    print "test\n\n";
    print "test\n\n";
    print "test\n\n";
    close(FILE);