while (1){
local $/;
eval <>;
if ($@) {
  print "Das war ok!\n";
} else {
  print "Das gab einen Fehler:\n$@";
}
<>
}