# Datei erzeugen
open (OUT, ">", $file) or die $!;
binmode OUT or die $!;
print OUT pack "C*", 0x1A;
close OUT or die $!;

# Testen der Dateilänge
printf qq(Dateilaenge nach Erzeugen: %u Byte\n), (stat($file))[7];

# Datei zum Lesen/Schreiben öffnen
open(OUT, '+<', $file) or die $!;
printf qq(Dateilaenge nach open +<: %u Byte\n), (stat($file))[7];
close OUT  or die $!;

# Testen der Dateilänge
printf qq(Dateilaenge nach close von open +<: %u Byte\n), (stat($file))[7];