#!/usr/sbin/dtrace -s

#pragma D option quiet

syscall::*fork*:entry
{
        self->parent = execname;
	@f[execname,probefunc] = count();
}

syscall::*fork*:return
/ arg0 > 0 /
{
	fpid = arg0;
	printf("%s forked PID %d\n",execname,fpid);
}

END
{
	printf("%-20s %-20s %s\n\n","WHO", "WHICH FORK", "COUNT");
	printa("%-20s %-20s %@d\n",@f);
}