in reply to Printing Scalars Next to Text
Try changing the print to print "<th>" . $link . "Title</a></th>\n";.