Help for this page
use Fcntl qw(:DEFAULT :flock); sysopen(OUTPUT, "output.bin", O_CREAT|O_EXCL|O_WRONLY) or die $!; ... print OUTPUT $buffer; } close OUTPUT or die $!;