open(FILE, "< filename") or die "filename: $!";
{
  local $/;
  $_ = <FILE>;
}
close(FILE);
eval;

##</code><code>##

do "filename" or die "filename: $! ($@)";