sub display_pdf {
    my $file = shift;
    print "Content-Type: application/pdf\n\n"; 
    open(IN, "$file") || die "cannot open $file";
    binmode(IN);
    while(<IN>){        print;    }
    close(IN);
}