#!/usr/bin/perl -w

open(PAGE, "</home/username/pdf/ho99-6a.pdf");

print "Content-type: application/pdf\n\n";

my($buffer);
while (sysread(PAGE,$buffer,2048)) {
	syswrite(STDOUT,$buffer,length($buffer));
}
close(PAGE);
exit;