h@e12a8t:~$ perl -le 'use BSD::Resource; print for RLIMIT_CPU, q(--), getrlimit(RLIMIT_CPU), q(--), getrusage(), q(--), setrlimit(RLIMIT_CPU, 10, 20), qq(--), getrlimit(RLIMIT_CPU), q(--); $SIG{XCPU} = sub { print "LIMIT" }; (sleep 1), printf "$_: %s %s\n", getrusage() for 1 .. 100;'
0
--
-1
-1
--
0.024001
0.008
0
0
0
0
685
0
0
0
0
0
0
0
1
0
--
1
--
10
20
--
1: 0.024001 0.008
2: 0.024001 0.008
3: 0.024001 0.008
4: 0.024001 0.008
5: 0.024001 0.008
6: 0.024001 0.008
7: 0.024001 0.008
8: 0.024001 0.008
9: 0.024001 0.008
10: 0.024001 0.008
11: 0.024001 0.008