#!/usr/bin/perl
print "Content-type: text/html\n\n";

 ($dmn,undef)=@ARGV;
chomp($dmn);
if ( $dmn eq "" ){ $dmn="ALL";}

print '
<frameset COLS="240,*" border="0">

<frame NAME="left"  SRC="menu?',$dmn,'">

<frame NAME="right" SRC="cover?',$dmn,'">

</frameset>

';
