####################################### sub poem_page { ####################################### $poembody =<<__END_OF_POEM_BODY__; $fields{'poem_title'} by $fields{'author_name'} $BODYTAG $params

$fields{'poem_title'}
  

$fields{'poem_body'}
  
  - $fields{'author_name'}
Copyright © 2003

__END_OF_POEM_BODY__ }