Help for this page
#! /usr/bin/perl -p __DATA__ hello goodbye
#! /usr/bin/perl while ( <> ) { ... __DATA__ hello goodbye