diff -r 8220abbf27bb -r d2562d0417a9 scratch/new --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scratch/new Wed Jul 20 22:35:03 2011 +0200 @@ -0,0 +1,11 @@ +#! /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(); +