[! sub new { my $self = shift ; $self -> {fontsize} = 1 ; } sub title { 'default' ; } !] [- $self = shift ; $self -> new ; -] Example using Objects: [+ $self -> title +] [- Execute ('epohead.htm') -] [- Execute ('*') -] [- Execute ('epofoot.htm') -]