Select Code to Download

  use Socket qw(SOL_SOCKET SO_LINGER);
  setsockopt($socket, SOL_SOCKET, SO_LINGER, pack("sll",1,0,0)) or die
+(        
    "setsockopt: $!"                                                  
+         
  );