[qr'>> Real server $number - $',
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$apply\r";
                   sleep 2;
                   exp_continue;
                 }],
               [qr'>> Real server $number - $',
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$save\r";
                   sleep 2;
                   exp_continue;
                 }],
               [qr'Confirm saving to FLASH [y/n]: $',
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$yes\r";
                   sleep 2;
                   exp_continue;
                 }],
               [qr'>> Real server $number - $',
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$exit\r";
                   exp_continue;
                 }]
                 );
}