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";