#!/usr/bin/perl 

sub print_addlinkform {
print <<END;
<FORM METHOD="post">
<INPUT TYPE="hidden" NAME
}

sub print_linklist {
  $SQLQuery = "select title, url, description from charlinks";
  $sth = $dbh->prepare($SQLQuery) || &SQL_Error();
  $rc = $sth->execute || &SQL_Error();

  while (@row = $sth->fetchrow_array())
  {
    print "<A HREF=\"$row[1]\">$row[0]</A> - $row[2]<BR>";
 }
}