Deleted perl code