# 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;
}