#!/usr/bin/perl

use BSD::Resource;

die "Shit!";

system("/bin/sh");

END {
	($usertime, $systemtime, $minflt, $majflt) =
		(getrusage(RUSAGE_CHILDREN))[0..1, 6..7];

	printf "%.2fs user, %.2fs system, %d+%d page faults\n", $usertime,
		$systemtime, $minflt, $majflt;
}

exit 0;