Select Code to Download

#!/usr/bin/perl
#IOServer.pl
...
        }
}#end of foreach loop

#!/usr/bin/perl
use IO::Socket;
...
#{}
close ($sock)