--- a/SI/blkid.pm	Tue Jan 19 14:49:43 2010 +0100
+++ b/SI/blkid.pm	Tue Jan 19 23:45:54 2010 +0100
@@ -4,6 +4,8 @@
 
 use strict;
 use warnings;
+use IO::File;
+use File::Basename;
 
 use SI::tools;
 
@@ -24,6 +26,26 @@
             $devs->{volume}{$dev}{uuid}  = $uuid;
             $devs->{volume}{$dev}{type}  = $type;
             $devs->{volume}{$dev}{label} = $label;
+
+	    my ($of, $oh);
+	    if (defined $uuid) {
+		    $of = sprintf $file, "uuid." . basename $dev;
+		    $oh = new IO::File ">$of" or die "ERR: Can't open $of: $!\n";
+		    $oh->print("$uuid\n");
+		}
+
+		if (defined $label) {
+	    $of = sprintf $file, "label." . basename $dev;
+	    $oh = new IO::File ">$of" or die "ERR: Can't open $of: $!\n";
+	    $oh->print("$label\n");
+    }
+
+	    if (defined $type) {
+		    $of = sprintf $file, "type." . basename $dev;
+		    $oh = new IO::File ">$of" or die "ERR: Can't open $of: $!\n";
+		    $oh->print("$type\n");
+	    }
+
 	}
 
     }