【perl】rename test

#rename test

rename("a.txt","b.txt");