"format" funktioniert nicht in einer SUB-Routine

[Timo Wintringer]

Hallo Leute ich bin am verzweifeln....

warum meldet Perl, dass hier noch eine Klammer fehlt ????
Ohne Sub funktioniert alles, aber sobald ich ein Unterprogramm nutze gibt es folgender Fehlermedung:

"Missing right curly or square bracket at 1.pl line 17, at end of line
syntax error at 1.pl line 17, at EOF
Execution of 1.pl aborted due to compilation errors."

Danke für Eure Hilfe

Hier ein "Auszug" meines Problem-Scipts

#!/usr/bin/perl

sub makenewslist

{
    
    open NEWSLETTER,">>$newslistpath";

format NEWSLETTER =
    ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
    $newsdaten
    .
    
    write NEWSLETTER;
    close (NEWSLETTER);

}