my $code = 'print "hallo welt\n"; print "test\n\n"';

open(my $fh, ">", \my $out); # 'in memory' filehandle
my $old = select($fh); # default filehandle ist jetzt $fh
eval $code; # sollte klar sein
select($old); # default filehandle ist jetzt wieder STDOUT
close($fh); # der schoenheit halber

print "Das hier befindet sich in out:\n$out"