Untitled

handler := BasicHandler new.

service := (HttpService on: 8080 named: 'Example Http Service')
        onRequestDo: [ :httpRequest | handler processHttpRequest: httpRequest ];
        start.

BasicHandler>>processHttpRequest: aRequest
    ^HttpResponse fromString: '<html><head></head><body>Hello World ' , Time now printString , '</body></html>'