Select Code to Download

use strict;
use warnings;
...
    die "$num\n" unless $str eq '123';
    print "$num\n" unless $num ++ % 1000;
}

use strict;
use warnings;
...
    $sock-> close;
    select( undef, undef, undef, 0.01 )
}