{ 
  my $offset;
  CHECK { $offset = tell DATA }
  sub data { seek DATA, $offset, 0; [<DATA>] }
}