Help for this page
package foo; ... } 1; __END__
$ perl -l use foo; ... print $foo->data('bar'); __END__ bar