Select Code to Download

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