Select Code to Download

#!/usr/bin/perl -w
                                                                      
+          
...
    my $nmilli = int(rand(1100) / 1000);
    select(undef, undef, undef, $nmilli);
}

    (0 == ($i % $interval)) and printf " Progress %5d/%5d\e[K\r", $i, 
+$total;