Select Code to Download

use strict ;
use warnings ;
...

  close $socket ;
} ;

use strict ;
use warnings ;
...
  sleep(10) ;
  print STDERR "." ;
} ;