Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
}

print Dumper validate_properties([map +{ id => $_ }, 1 .. 5]);

$VAR1 = [
          {
...
            'supported' => 0
          }
        ];