import Network
import Control.Concurrent

main = withSocketsDo $ do
    tid <- forkIO $ do
        s <- listenOn (PortNumber 1234)
        accept s
        return ()
    threadDelay 2000000
    killThread tid