$expect->expect(15,["name", sub { my $self = shift; 
                                  $self->print("PrimeLord\n"); 
                                  exp_continue; }],
                   ["\n", sub { exp_continue; }],
                   "\n");