--- /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();
+