Perl script to recode several audio formats in mp3, (ape, m4a, wma, mpc, flac, wav)