1  while (my $dbpass = $sth->fetchrow_arrayref)
2    {
3       ($UIDholder, $LNholder) = @{$dbpass};
4    }
5  print p($UIDholder);  #checking value of UIDholder
6  if (length $LNholder == 0) {
7       print p($UIDholder);  #checking value of UIDholder
8       print p("Please continue on to the next page to complete the registration process.");
9       print '<form action="ti_newprofile.pl">';
10     print '<input type="hidden" name="UIDholder" value="$UIDholder">';
11     print '<input type="submit" value="Continue"></form>';