Select Code to Download

package Foo;
1;
__DATA__
line 1
line 2

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

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

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