#!/usr/bin/env perl

use strict;
use warnings;
use JSON;
use File::Basename;

my @data = ();

my @disks = glob('/dev/sd?');
foreach (@disks) {
    push @data, {
        "{#DISKNAME}" => $_,
        "{#SHORTDISKNAME}" => basename($_),
    };
}

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