1 #! /usr/bin/perl

     2 use 5.010;

     3 use strict;

     4 use warnings;

     5 use blib;

     6 use BlockDev;

     7 

     8 

     9 my $dev = BlockDev->new(dev => "/dev/sda1");

    10 say scalar $dev->rdev();

    11