2 my($title, $menubar) = ( shift, shift );
3 my $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
4 my $head = @_ ? shift : ''; #$head is for things that go in the <HEAD> section
11 <META HTTP-Equiv="Cache-Control" Content="no-cache">
12 <META HTTP-Equiv="Pragma" Content="no-cache">
13 <META HTTP-Equiv="Expires" Content="0">
16 <BODY BGCOLOR="#e8e8e8"<%= $etc %>>
21 <%= $menubar ? "$menubar<BR><BR>" : '' %>