How to remove copy or rename a file with perl

sorry to bother you, I removed some English sentences.