my $evalstr;
{
 local (*F, $/);
 undef $/;
 open F, './foo.pl';
 $evalstr = 'package foo; ' . <F>;
}

eval $evalstr or die $@;