Select Code to Download

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

use strict;
use Expect;

...
} else {
       print "Hello $name! I don't know you!\n";
}