Select Code to Download

$exp->expect($timeout,
             [ qr /pattern/ => sub { do things; } ]
            );

$exp->expect($timeout, \$dispatch_table );