#!/usr/bin/perl
use strict;
use warnings;

sub _gotocaller {
    my $i = 2;
    while (1) {
        my ($pkg, $file, $line, $sub) = caller($i);
        if (not defined $pkg) {
            # no caller
            return;
        }
        elsif ($sub =~ /::__ANON__$/ or $sub eq '(eval)') {
            $i++;
        }
        else {
            no strict;
            goto &{"$sub"};
            die;
        }
    }
}

my $x = 1;
sub foo {
    print "foo: $x\n";
    if ($x < 10) {
        print join("|", caller(1)), "\n";
        _gotocaller() or die "shouldn't be reached if there was an enclosing subroutine!";
    }
}

sub bar {
    print "bar: $x\n";
    foo($x++);
}

bar();