a perl script for generating mixtapes