perl code