Simple perl script to check host status via TCP socket on port 22