<% my($title, $menubar) = ( shift, shift ); my $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc. my $head = @_ ? shift : ''; #$head is for things that go in the section %> <%= $head %> > <%= $title %>

<%= $menubar ? "$menubar

" : '' %>