### 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__