Select Code to Download

use IO::Handle;
STDOUT->autoflush(1);
...
   $num--;
   sleep 1;
}

use IO::Handle;

...
   $num--;
   sleep 1;
}