module Main where

import Network.BSD
import Network.Socket
import System
import System.IO

main = getArgs >>= mapM_ (\arg -> do
    let hints = defaultHints { addrFamily = AF_INET6 }
    addrs <- getAddrInfo (Just hints) (Just arg) (Just "http")
    let addr = head addrs
    sock <- socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr)
    connect sock (addrAddress addr)
    h <- socketToHandle sock ReadWriteMode
    hPutStrLn h "HEAD / HTTP/1.0\r\n"
    hFlush h
    hGetContents h >>= putStr
    hClose h)