c:\test>perl -E"eval 'sub Foo{ return 12345 }'; print Foo();"
12345

##</code><code>##

c:\test>perl -E"$f = eval 'sub { return 12345 }'; print $f->();"
12345

c:\test>perl -E"$f = eval 'sub { return "bar" }'; print $f->();"
bar