my $control = {
    properties => {
        "id"                  => "/heatingCircuits/hc1/switchPrograms/A",
        "type"                => "switchProgram",
        "setpointPropertyID"  => "/heatingCircuits/hc1/temperatureLevels",
        "setpointPropertyURI" => "http://192.168.178.58/heatingCircuits/hc1/temperatureLevels",
        "maxNbOfSwitchPoints" => 42,
        "maxNbOfSwitchPointsPerDay" => 6,
        "switchPointTimeRaster"     => 15,
        "writeable"                 => 1,
    },
    switchpoints => [{},{},{}]
};