Du brauchst binmode! Nur dass das im open-statement integriert werden kann:
open(FH, '>', $file); binmode(FH); ist identisch zu open(FH,'>:raw', $file);, ab Perl 5.8.
das ist genau was ich meine , dass man den befehl nicht mehr braucht ,
den modus schon.