Select Code to Download

use DBI;
use IO::Socket::INET;
...
  }
  $socket->close();
}

use strict;
use warnings 'all';
...
    print "($$) Got $data from producer.\n";
  }
}