Select Code to Download

use IO::Seekable;

...
seek OUTPUT, 0, 0;    # seek to the beginning of the file?
print OUTPUT "\037\213";    # append gzip magic (0x1F 0x8B)
close OUTPUT;