#!/usr/bin/perl
use strict;
use warnings;

my $code='';
while (<>) {
    if (/^_ _END_ _$/) {
        if (defined eval $code) {
            print "ok\n";
        } else {
            print "FEHLER!\n";
        }
        $code = '';
    } else {
        $code .= $_;
    }
}