#!/usr/bin/perl

$nl = "\r\n";
$file = "introlng.ra";

open(F,$file);

print "HTTP/1.0 200 OK$nl";
print "Content-Type: multipart/alternative; boundary=boundary42";
print "$nl--boundary42$nl";
print "Content-Type: audio/x-pn-realaudio$nl$nl";


while (<F>) {print;}
close(F);


# apparently, it worked even though this line doesn't get output.
# I don't know why. :D
# print "$nl--boundary42--$nl";

exit 0;