Server : Apache System : Linux server2.corals.io 4.18.0-348.2.1.el8_5.x86_64 #1 SMP Mon Nov 15 09:17:08 EST 2021 x86_64 User : corals ( 1002) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system Directory :  /proc/self/root/proc/thread-self/root/usr/share/doc/perl-devel/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

/*
    Example of the perl systemtap tapset shows a nested view of perl subroutine
    calls and returns across the whole system.

    To run:
        stap perl-example.stp (for all perl processes)
    For specific perl process:
        stap perl-example.stp -c COMMAND
*/

probe perl.sub.call
{
    printf("%s => sub: %s, filename: %s, line: %d, package: %s\n",
        thread_indent(1), sub, filename, lineno, package)
}

probe perl.sub.return
{
    printf("%s <= sub: %s, filename: %s, line: %d, package: %s\n",
        thread_indent(-1), sub, filename, lineno, package)
}