--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SI/ptable.pm	Thu Jan 14 20:50:54 2010 +0100
@@ -0,0 +1,13 @@
+package SI::ptable;
+
+use strict;
+use warnings;
+
+use SI::tools;
+
+sub save($) {
+	my $file = shift;
+	run "sfdisk -d >$file 2>/dev/null";
+}
+
+1;

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SI/tools.pm	Thu Jan 14 20:50:54 2010 +0100
@@ -0,0 +1,14 @@
+package SI::tools;
+
+use strict;
+use warnings;
+use base "Exporter";
+our @EXPORT = qw(&run);
+
+sub run(@) {
+	system(@_);
+	die "$_[0] failed with exit code " . $? >> 8 . "\n"
+	if $?;
+}
+
+1;

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/si	Thu Jan 14 20:50:54 2010 +0100
@@ -0,0 +1,13 @@
+#! /usr/bin/perl
+# system imager
+
+use strict;
+use warnings;
+
+use SI::ptable;
+
+my $OUT = "out";
+
+-d $OUT or mkdir($OUT, 0700) or die "Can't mkdir $OUT: $!\n";
+
+SI::ptable::save("$OUT/partitions");