#!/usr/bin/perl

use strict;
use warnings;
use JSON;

my @data = ();

chomp(my $hv = `hostname`);

foreach (`sudo /usr/bin/lxc-ls -1`) {
    chomp;
    push @data, {
        "{#CTID}" => $_,
        "{#VENAME}" => $hv,
    };
}

print encode_json({data => \@data});
