#!/usr/bin/perl
use CGI qw(:all -nph );
$|++;
my ($offset,$bytes,$buffer,$contents);
        open(PDF, "</tmp/pdftest.pdf") || die ("Couldn't open file $print_pdf");;
        $offset = 0;
        $contents = '';
        binmode PDF;
        until(eof(PDF)) {
                $bytes += read(PDF,$buffer, 1048576, $offset);
                $offset += 1048576;
                $contents .= $buffer;
        }
        close PDF;

        print header(
                -type                                   => 'application/pdf'
        );


        print $contents;