Select Code to Download

use strict;
use warnings;
...

print "Taken " . tv_interval($start_time) . "seconds\n";
$sock->close();

use constant NEW_SOCK_EVERY => 1000;
...
...
        }
    }
...