my $prog_code; my $test_code; # slurp monster.pl into $prod_code # slurp a test suite into $test_code eval "CHECK {$test_code} $prog_code";