sub type { 

   my $self = shift; 
   return 'PlainText'; 
}