removed perl code