You need to persist the $LastName variable between page refreshes, this example uses the query string

#/usr/bin/perl -w
use strict; 
use DBI; 
use CGI ':standard'; 
#use CGI::Carp 'fatalsToBrowser';

# constants
my $locn     = 'Phoenix, AZ USA';
my $pagesize = 5;

# variables
my $LastName = param('LastName');
my $reqpage  = param('reqpage') || 1;
my $name_like = substr($LastName,0,3).'%';

# connect to database
my $dbh = get_dbh();

# get record count 
# calc page count and offset
my $rec_count = rec_count();
my $page_count = int($rec_count / $pagesize);
++$page_count if ($rec_count % $pagesize);
my $offset = ($reqpage-1) * $pagesize;

# start page
print header,start_html(
   -title=>'PAGE TITLE',
   -style=>{ -code=>'margin-top: 0px; margin-left: 0px; margin-right: 
+0px;'} );

# simple form for testing
print qq!<form action="" method="post">
  <input type="text" name="LastName" value="$LastName"/>
  <input type="submit" value="LastName"/>
</form>!;   

# search results
results();

# page links
print page_links() if $page_count > 1;

debug();
print end_html();

# return count
sub rec_count {
  my $sql = "SELECT count(*) from members 
             WHERE (Location = ? and LastName LIKE ?)"; 
  my $rec_count = $dbh->selectrow_array($sql,undef,$locn,$name_like);
  return $rec_count;
}

# search result
sub results {

  my $sql = qq! SELECT ID,LastName,Location FROM members
                WHERE (Location = ? and LastName LIKE ?) LIMIT ?,?!;

  my $sth=$dbh->prepare($sql); 
  $sth->execute($locn,$name_like,$offset,$pagesize);

  my $table = qq!<table width="100%" cellpadding="3" cellspacing="0" b
+order="1">
  <tr bgcolor="#e0e0e0">
   <td>ID</td>
   <td>LastName</td>
   <td>Location</td>
  </tr>!;
  
  while (my @f = $sth->fetchrow_array){
    $table .= qq!<tr>
    <td>$f[0]</td>
    <td>$f[1]</td>
    <td>$f[2]</td>
  </tr>!;
  }

  $table .= q!</table><br/>!; 
  print $table;
}

# page links
sub page_links {

  my $links;
  if ($reqpage > 1){
    my $prev = $reqpage - 1;
    $links = qq!<a href="?LastName=$LastName;reqpage=$prev">PREV</a> &
+nbsp;!;
  }
  
  for my $i (1..$page_count){
    if ($i == $reqpage){
      $links .= qq!<b>$i</b> &nbsp;!;
    } else {
      $links .= qq!<a href="?LastName=$LastName;reqpage=$i">$i</a> &nb
+sp;!;
    }
  }
  
  if ($reqpage < $page_count){
    my $next = $reqpage + 1;
    $links .= qq!<a href="?LastName=$LastName;reqpage=$next">NEXT</a> 
+&nbsp;!;
  }
  
  return $links;
}


# connect
sub get_dbh{
  my $database = ''; my $user = ''; my $pw = '';
  my $dsn = "dbi:mysql:$database:localhost:3306"; 
  my $dbh = DBI->connect($dsn, $user, $pw, { RaiseError=>1, AutoCommit
+=>1 } );
  return $dbh;
}

# debug
sub debug {
 print qq!<hr/><pre>
 LastName   = |$LastName|
 reqpage    = $reqpage

 rec_count  = $rec_count
 pagesize  = $pagesize
 page_count = $page_count
 offset     = $offset
</pre>!
}
[download]

poj

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.