You right, but I can't use block style eval. I need to eval code located in other file and content of this file should be preprocessed first in some way... As trivial example I need to load this code in temporary package and import some function (from other module) into this package:
$content = `cat somefile.pl`;
eval "package $TEMPPACKAGE;".
"use Some::Module qw(somefunctions);".
$content;