/* This probe will fire when the perl script enters a subroutine. */ probe perl.sub.call = process("/usr/lib64/perl5/CORE/libperl.so").mark("sub__entry") { sub = user_string($arg1) filename = user_string($arg2) lineno = $arg3 package = user_string($arg4) } /* This probe will fire when the return from a subroutine has been hit. */ probe perl.sub.return = process("/usr/lib64/perl5/CORE/libperl.so").mark("sub__return") { sub = user_string($arg1) filename = user_string($arg2) lineno = $arg3 package = user_string($arg4) } /* This probe will fire when the Perl interperter changes state. */ probe perl.phase.change = process("/usr/lib64/perl5/CORE/libperl.so").mark("phase__change") { newphase = user_string($arg1) oldphase = user_string($arg2) }