/*
 * Written by Alan Burlinson -- taken from his blog post
 * at <http://blogs.sun.com/alanbur/date/20050909>.
 */

provider perl {
        probe sub__entry(char *, char *, int);
    probe sub__return(char *, char *, int);
};