Select Code to Download

@pattern_list = expect "SWBKPT hit for SLOT";

my @arr = qw( bob sue jane);
print "\@arr = " . join(':', @arr) . "\n";

my@mybox:~/sandbox
$ ./4.pl
@arr = bob:sue:jane

$expect->expect($timeout,"SWBKPT hit for SLOT");
sleep 2;
$expect->send("\n\n");