[! 
 
 sub new
	{
	my $self = shift ;

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

 PAGE 3