#!perl -w
$| = 1;
print "Content-Type: application/pdf\n\n";
open(FILE,"dental.pdf")  or die("$!");
binmode(FILE);
while (sysread(FILE,$buffer,1024)) {
	print STDOUT $buffer;
    }