open FH, 'included.pl';
my $text;
{
  local $/ = undef;
  $text = <FH>;
}
close FH;
my $name = 'turd';
eval $text;
die "error in included file: $@" if $@;