# file Foo.pm
package Foo;
1;
__DATA__
Foo
foo foo foo


##</code><code>##

# file Bar.pm
package Bar;

1;
__DATA__
print Bar. I told you so.

##</code><code>##

#!/usr/bin/perl

use Foo;
use Bar;
print while <DATA>;
print "Foo:\n";
print while <Foo::DATA>;
print "Bar:\n";
print while <Bar::DATA>;

__DATA__
so this works.

__END__
so this works.
Foo:
Foo
foo foo foo

Bar:
print Bar. I told you so.

##</code><code>##

#!/usr/bin/perl

use Foo;
use Bar;
print while <DATA>;
system "ls -l /proc/$$/fd";
print "Foo: ",fileno Foo::DATA, "\n";
print while <Foo::DATA>;
print "Bar: ",fileno Bar::DATA, "\n";
print while <Bar::DATA>;

__DATA__
so this works.