Select Code to Download

#!/usr/bin/perl

...
}

print getppid();

*CORE::GLOBAL::getppid = sub () {
    return "Hello world!\n" . CORE::getppid();
};
1;

$ perl -Mmygetppid -e "print getppid()"
Hello world!
23726