Help for this page

Select Code to Download


  1. or download this
    package Foo;
1;
__DATA__
line 1
line 2
  2. or download this
    #!/usr/bin/perl -w
use strict;
use Foo;
print while (<Foo::DATA>);
  3. or download this
    {
  local $^W;
  print while (<Foo::Data>);
}
  4. or download this
    {
  now warnings 'once';
  print while (<Foo::Data>);
}