sub foo {
    (caller(0))[4]
        or return foo($_);

    ...;
}