--- /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;