package Foo;
1;
__DATA__
line 1
line 2

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Foo;
print while (<Foo::DATA>);

##</code><code>##

{
  local $^W;
  print while (<Foo::Data>);
}

##</code><code>##

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