Select Code to Download

use IO::Socket;
my $sock = new IO::Socket::INET (
...
}
}
close($sock);

use IO::Socket;
$sock =0;
...
}
};
close($sock);