It works.

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

Disclaimer