use strict ; use warnings ; package FOO::Messages; while() { print $_ ; } sub foo{} =head1 __DATA__ This is the data stuff here. =cut 1; __DATA__ data stuff here. =head1 OtherHeading Supp =cut asdfasdfasdf