Re^3: eval and goto: no worky?

[Anonymous Monk]

foo( "a" );

sub foo {
    eval { goto &foo2; } or warn $@;
}

sub foo2 {
    print "foo2 called with @_\n";
}
__END__
Can't goto subroutine from an eval-block at - line 4.