Select Code to Download

print "Str Eval ret   :",readonly((eval'capture(5)')->[0]);

use strict;
sub capture {\@_};
...
Block Eval ret :1
Str Eval ret   :0