### letssee.pl
use strict;
use warnings;
use Mongo;

my $buffer = Mongo::payload();

print $buffer;
__END__

##</code><code>##

### Mongo.pm
use strict;
use warnings;

package Mongo;
use PerlIO::gzip;

1;  # appease require

sub payload {
  binmode( DATA, ':gzip' );
  local $/ = \4096;
  my $ret;
  $ret .= $_ while <DATA>;
  return $ret;
}

__DATA__

##</code><code>##

% echo 'hello world'| gzip -c - >> Mongo.pm

##</code><code>##

% perl letssee.pl
hello world