Something

#!/usr/bin/perl

require "dbi-lib.pl"; #library from lesson 7#

#----------------------#
# User Variables       #
#----------------------#

$table_name = "sqlguestbook";


#----------------------#
# Main Body            #
#----------------------#
&parse_input;
&print_header;
&initialize_dbi;
&display;
&actions;
exit;

#----------------------#
# Function             #
#----------------------#

sub actions{
if ($action == 1) {$mysqlcall=="select * from $tablename order by name;"}
}
sub display {
  print "<TABLE BORDER=1>\n";
  print "<TR><TD>#</TD><TD>Name</TD>";
  print "<TD>Date Posted</TD><TD>Message</TD></TR>\n";
  &run_statement("$mysqlcall");
  while (($id, $name, $entry_date, $email, $message) = $sth->fetchrow) {
  if($id < 11)  
    {print "<TR><TD>$id</TD><TD><A HREF='mailto:$email'>$name</A></TD>";
    print "<TD>$entry_date</TD>";
    print "<TD>$message</TD></TR>\n";} 
elseif ($action == 2) {$mysqlcall=="select * from $tablename order by date;"
while (($id, $name, $entry_date, $email, $message) = $sth->fetchrow) {
  if($id < 11)  
    {print "<TD>$entry_date</TD>";
    print "<TR><TD>$id</TD><TD><A HREF='mailto:$email'>$name</A></TD>";
    print "<TD>$message</TD></TR>\n";;
}


  }
  print "</TABLE>\n";
  print "<br/><br/><a href='nextpage.pl'>next guestbook results</a>\n";
}

sub actions ($action);