use strict;
use Expect;

my $expect = Expect->spawn("/usr/foo/namer") or die "$!\n";
print $expect "PrimeLord\n";
my $result = $expect->expect(15,"name:") or die "Didn't get what I was looking for:\n";

##</code><code>##

use strict;
use Expect;

print "What is your name: ";
chomp (my $name = <STDIN>);
if ($name =~ /primelord/i) {
       print "Hello PrimeLord!\n";
} else {
       print "Hello $name! I don't know you!\n";
}