fixed stupid bug in websocket perl example