Select Code to Download

use IO::Scoket;
$socket= new IO::Socket(
                          LocalAddr=>$host,
                          LocalPort=>$port,
                          ..... #other arguments
                       ) or die "socket not created\n";