open (QR, "<QR_labels.pdf");
binmode(QR);
print "Content-type: application/pdf\n\n";
print 'Content-Disposition', "attachment; filename=Booth_guide.pdf\n\n"; 
while(read(QR,$buffer,10000)){
print $buffer;
}
close(QR);