print " - JSON setpointProperty ID : " . $json->{setpointProperty}->{id}. "\n"; print " - JSON setpointProperty URI: " . $json->{setpointProperty}->{uri}. "\n"; print " - JSON switchPoint 01 setpoint: " . $json->{switchPoints}->[0]->{setpoint} . "\n"; print " - JSON switchPoint 01 dayOfWeek: " . $json->{switchPoints}->[0]->{dayOfWeek} . "\n"; print " - JSON switchPoint 01 time: " . $json->{switchPoints}->[0]->{time} . "\n";