Select Code to Download

print $expect "StringToSend";
$expect->expect(15,"StringToWatchFor") or die "not found";

my $expect = new Expect;
$expect->raw_mode(1);
$expect->spawn(....);

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