perlxs*:::sub-entry
{
    self->func = copyinstr(arg0);
    self->file = copyinstr(arg1);
    self->line = arg2;
}
off-cpu
/self->line > 0/
{
    printf("%d %s just went off CPU in %s at %s:%d\n",
           pid, execname, self->func, self->file, self->line);
    self->func = 0;
    self->file = 0;
    self->line = 0;
}