#!/usr/bin/perl

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

print getppid();