Select Code to Download

%images {
             => copy_1_frag_1_id,
                => 12345
...
             => some_other_key
                => some_other_val
              }

#!/opt/openv/perl/bin/perl  -w
...
}

print Dumper(\%status);

'dbsrv1' => {
     'policy' => [
...
        undef
        ],
 },