{
  now warnings 'once';
  print while (<Foo::Data>);
}