# Prints "I am the inner quux at blup."

sub blah () {
    my $fn = sub () { goto quux; };
    blup ($fn);
    return;
  quux:
    print "I am outer quux at blah.\n";
}

sub blup () {
    $_[0]->();
    return;
  quux:
    print "I am the inner quux at blup.\n";
}

blah();