Move MP3s perl script

#!/usr/bin/perl

$x = 1;

while(<>){

   chomp;

   $tmp = sprintf("%02d - Spanish.mp3", $x++);

   `mv '$_' '$tmp'`;

}