{
  my $offset;
  BEGIN { $offset = tell DATA }
  sub build_data {
    seek DATA, $offset, 0;
    return [ <DATA> ];
  }
}