in reply to How to recursively zip all files insied a directory

The module PerlIO::gzip might be of help to you, if you have Perl > 5.8. You might also be able to use the following, and loop thru all your files, print to the handle, then unlink them. 
open (my $handle,"gunzip -c $filename |" ) or die $!;

[download]

In Section Seekers of Perl Wisdom