first perl code