AJAX example

Matches:

Contents of associated CGI Script

#!/usr/bin/perl

use CGI qw/:standard/;

@names = qw{Ethan Olivia Samuel Emma William Abigail Jacob Lily Benjamin 
Elizabeth Joshua Ava Alexander Madison Andrew Addison Daniel Emily Jackson 
Isabella Isaac Sophia James Brooklyn Jack Ella Tyler Chloe David Samantha 
Logan Grace Luke Avery Mason Sophie Carter Taylor Noah Alexis Gavin Sarah 
Wyatt Kate Zachary Lucy Michael Hailey Aiden Anna Owen Mia Gabriel Claire 
Nathan Ashley Lincoln Sadie Ryan Hannah Austin Natalie Joseph Savannah 
Landon Gracie Matthew Ellie Dylan Alyssa Jaxon Kaylee Ryker Rachel Carson 
Ruby Cameron Lydia Parker Audrey Anthony Evelyn Cooper Katelyn Jayden 
Lillian Thomas Megan Hunter Leah Caleb Jocelyn Christian Lauren Braxton 
Jessica Kaden Sydney Christopher Morgan Jonathan Amelia Elijah Brynlee 
Jordan Isabelle Angel Paige Ashton Eliza Porter Allison John Kaitlyn Max 
Alexa Spencer Payton Gage Kayla Boston Peyton Cole Zoe Hayden Eva Henry 
Rylee Connor Bailey Brandon Ashlyn Adam Zoey Easton Bella Lucas Jane 
Tyson Kimberly Eli Kylee Preston Kylie Brayden Brooke Evan Julia Maxwell 
Makayla Tanner Victoria Oliver Halle Chase Mary Jose Valeria Alex Aubrey 
Liam Lilly Ian Eden Kayden Maya Aaron Miley Brody Aspen Nicholas Katie 
Jace Paisley Justin Tessa Luis Vanessa Kyler Brielle Blake London Jason 
Nevaeh Kyle Riley Diego Ivy Asher Katherine Bridger Kennedy Corbin Autumn 
Tristan Brianna Kevin Reagan Ryder Sofia Seth};

print header(-type=>'text/plain');
if (param('val'))
{
        $searchString = param('val');
        $retString = "<ul>";
        foreach $name (@names)
        {
                $retString .= "<li>$name</li>" if ($name =~ /^$searchString/i)
        }
        $retString .= "</ul>";
        print $retString;
}