print "Content-Type: application/octet-stream; name=$query.pps\n";
print "Content-Disposition: file; filename=$query.pps\n\n";
open (FILE, "<$query/$query.pps");
binmode(FILE);
binmode(STDOUT);
while (! eof(MP3))
{
print getc(FILE);
}
close(FILE)
exit;
Achte bei Headerangaben bitte auf Groß/Kleinschreibung... Da sind einige Browser echt hartnäckig!