handle timeout

lib/Core/TcpService.pm

@@ -128,12 +128,17 @@ sub handler {
             $banner =~ s/([^\s\d\w.,;\/\\])/sprintf "\\%o", $1/eg;
         }
     }
-    close($h);
-
-    return {
+    elsif (not defined($fd)) {
+      close($h);
+      return { 'status' => ['connection timeout', 's'] };
+    }
+    else {
+      close($h);
+      return {
         'banner' => [$banner, 's'],
         'status' => ['connection successful', 's']
-    };
+      };
+   }
 };
 
 1;