How to open a write into an already zipped file in perl:

How to open a write into an already zipped file in perl:
--------------------------------------------------------

my $temp_file = "file_name.gz";
open(HWRITE, "|gzip -c > $temp_file") or die "cannot open file $temp_file\n";
print HWRITE "Something_1|Something_1|Something_1|Something_1\n"
or die "File write failed : $!\n";