use File::Copy;

move("/perl/01 Casper - XOXO.mp3","/perl/Casper - xoxo/01 Casper - XOXO.mp3");