#!perl -w   ## Windows XP box, perl 5.8.something
use strict;
require Tie::Gzip;
open FIL, ">C:/test.zip";
tie FIL, 'Tie::Gzip';
print FIL "This is a zipped file";