[! 
 
 sub new
	{
	my $self = shift ;

	$self -> {fontsize} = 9 ;
	$self -> {copyright} = 'Gerald Richter / ecos (c) 2000 [page 4]' ;
	}
 
 
 !]

 [$ sub title $]<b>Embperl sub in title </b>[$endsub$]

 PAGE 4