eval qq{
     $file = 'foo.pl'; # foo has errors in it
     require "$file";
}
dienice("that code is busted because: $@") if $@;