http://www.perlmonks.org?node_id=360454

#!/usr/bin/perl use strict; package MyModule; =pod =head1 MyModule =head2 My data is: =cut my $testread = join '', <DATA>; warn $testread; __DATA__ =pod one == 1 two == 2 =cut