Here is my problem, I want to build a perl code library. I need to validate the perl code entered. here is what i do:

# check to see if code is valid
sub check_valid_code {
    my ($lang, $code) = @_;
    if ($lang eq 'perl') {
        $code .= "\n1;\n";
        return eval ($code);
    }
    0;
}
[download]

well.... this validates the code all right! the problem is that it executes the perl code also ;) I need another way to check if the code is valid... but does not execute it. any ideas ?!? thanks! Jean-Daniel