fopen(COOKFILE, ">./Sources/cook.txt")
Bist du sicher, dass wir von Perl sprechen?
Der Befehl heißt eigentlich open und du kannst dir auch den Grund ausgeben lassen:
open(COOKFILE, '>', "./Sources/cook.txt") or die "Grund: $!"
Ich vermute aber eher ein Rechteproblem oder du bist auf einem System, dass Groß- und Kleinschreibung unterscheidet.
Struppi.