use Getopt::Long;
use POSIX ":sys_wait_h";
+use BSD::Resource qw/setrlimit/;
use strict;
use warnings;
die usage if $help;
die usage if !@system;
+# set CPU limit, in case the alarm handler will
+# be ignored
+setrlimit("RLIMIT_CPU", $timeout, 2*$timeout) or die "Cannot set CPU limit: $!\n";
+
#
# use fork/exec instead system()
#
else { }
1;
-