[! 
  
sub new
{
my $self = shift ;
$self -> {fontsize} = 5 ;
$self -> {copyright} = 'Gerald Richter / ecos (c) 2000' ;
}
  
sub title 
{ 
'epoobj3 -> page3'
} 
  
!]
PAGE 3