print header(), start_html;
my $page = "E:/companyname/website/htdocs/resources/header_1.htm";
open (PAGE, "$page") || die "Couldn't open $page";
while (<PAGE>) {print;}

##</code><code>##

my $LastName=param('LastName');
# pattern should match sql field requirement 
if($LastName =~ /^([\w\s]+)$/){
  $LastName = $1;
}else{
 print invalid search request .html
}

my $reqpage= param('reqpage');

if($reqpage =~ /^(\d+)$/){
  $reqpage = $1;
}else{
 print invalid page request .html
}