1 #! /usr/bin/perl

     2 use 5.010;

     3 use strict;

     4 use warnings;

     5 use blib;

     6 use BlockDev;

     7 

     8 

     9 say BlockDev->list;