$ perl print prototype 'CORE::eof',"\n" __END__ ;* $