my $notwhatiwant = qq{
    $file = 'foo.pl'; # foo has errors in it
    require "$file";
};

print "<$notwhatiwant>\n";
eval $notwhatiwant;
dienice("that code is busted because: $@") if $@;