1 package SI::tools;

     2 

     3 use strict;

     4 use warnings;

     5 use base "Exporter";

     6 our @EXPORT = qw(&run);

     7 

     8 sub run(@) {

     9 	system(@_);

    10 	die "$_[0] failed with exit code " . $? >> 8 . "\n"

    11 	if $?;

    12 }

    13 

    14 1;