a perl code