#!/usr/bin/perl

$first = 1;

print "{\n";
print "\t\"data\":[\n";

for (`lsblk -r | grep disk | awk '{ print \$1 }'`)
{
    chomp;
    print ",\n" if !$first;
    print "\t\t{\"{#DEVNAME}\":\"$_\"}";
    $first = 0;
}

print "\n\t]\n";
print "}\n";
