print "Content-type: audio/mp3\n";
print "Content-Disposition: attachment; filename=mypersonalrecording.mp3\n\n";

open SONG, "/location/to/mypersonalrecording.mp3";
while(read SONG, $download, 16384, 0){print $download;}
close SONG;