updating perl code