Select Code to Download

$exp->expect($timeout,
             [qr/^OK$/m => sub { ... }],
             [qr/^ERROR$/m => sub { ... }]);