2 my($title, $menubar) = @_;
3 my $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
10 <META HTTP-Equiv="Cache-Control" Content="no-cache">
11 <META HTTP-Equiv="Pragma" Content="no-cache">
12 <META HTTP-Equiv="Expires" Content="0">
14 <BODY BGCOLOR="#e8e8e8"<%= $etc %>>
19 <%= $menubar ? "$menubar<BR><BR>" : '' %>