Well, no lightweight trivial way.

use POSIX ();
$SIG{USR1} = sub { ... };
unless(fork) {
    sleep(4);
    kill(POSIX::SIGUSR1(), getppid());
    exit;
}
[download]