I need help with a mofication of a perl script that initiates a Socket

[Guest_imported]

Hi I have a perl script which opens a socket and allows downloads of files from a firewalled server. But it limits it to one download at a time. A friend said i need to make it open muliple sockets to download multiple files. Please can someone explain how to do this. Thanks. here is the code:<br>#!/usr/bin/perl<br>use Socket;<br>use IO::Handle;<br>open(STDERR, &quot;&gt;&STDOUT&quot ¦¦ die &quot;error opening STDOUT&quot;;<br>socket(S, PF_INET, SOCK_STREAM, getprotobyname('tcp')) ¦¦ die &quot;error in socket&quot;;<br>bind(S, sockaddr_in(6699, INADDR_ANY)) ¦¦ die &quot;error in bind&quot;;<br>setsockopt(S, SOL_SOCKET, SO_REUSEADDR, pack(&quot;l&quot;, 1)) ¦¦ die &quot;error in setsockopt&quot;;<br>($port) = unpack_sockaddr_in(getsockname(S));<br>listen(S, SOMAXCONN) ¦¦ die &quot;error in listen&quot;;<br><br>it gives the bind error if trying to do multiple downloads.