for my $vlink (@vlinks) {
	print "<tr><td><a href=\"bookDETAIL.cgi?book=$vlink->{title2}\">"
		."$vlink->{title}</a></td><td>$vlink->{pages}</td>"
		."<td>$vlink->{author}</a></td></tr>\n"
}