$q->header(-cookie=>$newcook);

print " <h1>Welcome $cuser</h1>\n";

open(books, "$file")|| die("Could not open b.txt");
$bookarray=<books>;
close(books);
print " <h1>$bookarray</h1>\n";


print " <h1>next</h1>\n";
@splitaray = split(/\|/, $bookarray, LIMIT);
print " <h1>@splitarray</h1>\n";



print " <table width=\"250\" border=\"2\">\n";
print " <tr>\n";
print "   <td>\n";



print " <table width=\"250\" border=\"2\">\n";


     foreach $thing (@splitarray) {
print     "<tr><td>$thing</td></tr>\n\n";

      }

print "    </table>\n";



print "    </td>\n";
print "   <td>\n";


#######################



 print "   </td>\n";
 print " </tr>\n";
print "</table>\n";