Select Code to Download

#!/usr/bin/env perl
use Expect;
...
                exp_continue;
                        } ]
              );

 [ qr/you have/i => sub { my $exp = shift;
                         if (++$counter<=1) { 
...
                              $exp->soft_close();                     
+       
                          }           
                         } ],