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