sub read_quotes {
        open (QUOTES, "< $basedir$quotefile") || die "No quotes file!";
        while (<QUOTES>) {
            chomp;
            if (!($_ eq $seperator)) {
                $build .= "$_\n";
            } else {
                push(@quotes,$build);
                $build = "-------\n"; #seperate body from sig
            }
        }
        close QUOTES;
}

##</code><code>##

for ($i = $min; $i <= $max; $i++) {
   print $quotes[$i];
}

##</code><code>##

script starts
   if no arguements
      print 1st page of guestbook
      exit
   else
     is arguement 'next page'?
        print page N
        build next page button with 
        values for next page
     is argument 'previous page'?
        same as above but in reverse :)
     is argument 'add entry'?
        parse user entry and concatonate
         to end of guestbook file
script ends