#!/usr/sbin/dtrace -qs

perl$target:::sub-entry {
  printf("-> %s\n", copyinstr(arg0));
}