--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scratch/list	Wed Jul 20 22:35:03 2011 +0200
@@ -0,0 +1,9 @@
+#! /usr/bin/perl
+use 5.010;
+use strict;
+use warnings;
+use blib;
+use BlockDev;
+
+
+say BlockDev->list;