--- a/SI/tools.pm	Mon Jan 18 22:55:10 2010 +0100
+++ b/SI/tools.pm	Tue Jan 19 14:49:43 2010 +0100
@@ -5,9 +5,10 @@
 use strict;
 use warnings;
 use File::Find;
+use Data::Dumper;
 use base "Exporter";
 
-our @EXPORT = qw(&run &verbose &find_by_devid &cat);
+our @EXPORT = qw(&run &verbose &find_by_devid &cat &barf);
 
 sub run(@) {
 	system(@_);
@@ -15,6 +16,8 @@
 	if $?;
 }
 
+sub barf(@) { die Dumper @_  }
+
 sub cat($) {
     my $fh = new IO::File $_[0] 
 	or die "Can't open $_[0]: $!\n";