Select Code to Download

               [qr">> Real server $number - $",
                 sub{
...
                   sleep 2;
                   exp_continue;
                 }],

               [qr">> Real server $number - $",
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$save\r";