use IO::Compress::Gzip qw(gzip $GzipError);
my $compressed;
if(gzip $foo => \$compressed [,OPTS]){
 # Compressed version of $foo stored in $compressed
}