There's nothing off the shelf, but you could always use getppid and one of the ps-ish modules (Proc::ProcessTable or GTop for example) to find it out.

Update: of course with the caveat that if the OS allows it the process name may have been changed; or someone nefarious could use symlinks and an intermediary exec even if it doesn't.