or download this
print "Content-type: audio/mp3\n";
print "Content-Disposition: attachment; filename=mypersonalrecording.m
+p3\n\n";
...
open SONG, "/location/to/mypersonalrecording.mp3";
while(read SONG, $download, 16384, 0){print $download;}
close SONG;