package Foo; use strict; my $data; { local $/; $data = ; } sub foo{ return $data; } __DATA__ Foo Bar Baz #### use Foo; print $Foo::foo;