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


my $dev = BlockDev->new(dev => "/dev/sda1");
say scalar $dev->rdev();

