--- a/scratch/new	Wed Jul 20 22:35:03 2011 +0200
+++ b/scratch/new	Wed Jul 27 23:07:42 2011 +0200
@@ -6,6 +6,10 @@
 use BlockDev;
 
 
-my $dev = BlockDev->new(dev => "/dev/sda1");
-say scalar $dev->rdev();
+my $dev = BlockDev->new(@ARGV);
+say $dev->major;
+say $dev->minor;
+#say $dev->mami;
+say $dev->dev;
+say $dev->path;