perl mirror