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


my $dev = BlockDev->new(@ARGV);
say $dev->major;
say $dev->minor;
#say $dev->mami;
say $dev->dev;
say $dev->path;

