perl how to…