#!/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.