add perl code block