Select Code to Download

    my ($offset,$bytes,$buffer,$contents);
    open(PDF, "<$print_pdf") || print_debug("Couldn't open file $print
+_pdf");;
...
    #print "Content-Type: application/pdf\n\n";
    #binmode STDOUT;
    print $contents;