more perl code