#! /usr/bin/perl
use 5.010;
use strict;
use warnings;
use blib;
use BlockDev;


say BlockDev->list;
