test perl code