Select Code to Download

#!/usr/bin/env perl

...

   die("Can't accept: $!\n");
}

#!/usr/bin/env perl

...
}
my $etime = time;
printf("%.3fms per connection\n", ($etime-$stime)/$num_connects*1000);