#! usr/bin/perl

use Fcntl;
print “content-type: text/html \n\n”;

print “Enter word : “;
$word = ;

@myNames = (‘Jacob’, ‘Michael’, ‘Joshua’, ‘Matthew’, ‘Alexander’, ‘Andrew’);
@grepNames = grep(/$word/, @myNames);

foreach $Names(@grepNames)
{
print $Names;
print “\n”;
}