llInstantMessage(CORRADE,
    wasKeyValueEncode(
        [
            // get the media data from a primitive
            // in a 5 meter range named "TV Screen 1.0"
            "command", "setobjectmediadata",
            "group", wasURLEscape(GROUP),
            "password", wasURLEscape(PASSWORD),
            "item", wasURLEscape("TV Screen 1.0"),
            "range", 5,
            // set the data on face 0
            "face", 0,
            "data", wasURLEscape(
                wasListToCSV(
                    [
                        "CurrentURL",
                        "http://www.grimore.org",
                        "AutoPlay",
                        "True"
                    ]
                )
            ),
            "callback", wasURLEscape(URL)
        ]
    )
);