eval 
{
   # OK here is where we will try to use the MIME::Tools suite of classes
   # Wish me luck - Hopefully I won't screw it up too much.
   my $parser = new MIME::Parser;
   my $entity = $parser->parse_data($email) or die("Bad Parse. ");
   #  Tried this - doesn't work
   #my $crap = (defined($entity->head->get('subject',0)))?$entity->head->get('Subject',0):'undef';
   #$page->p("Subject: $crap<br />\n");
   
   #  Also tried this - doesn't work
   $page->p('Subject: '.$entity->head->get('subject',0));

   # The wierd part - this does work.  Even when the other
   # parts are still in
   $page->p($entity->head->print());
};
if ($@)
{
   print $page -> p("Error occured $@ \n");
}