print "Content-Type: application/pdf\n\n";
    open(FILE,"$file") or &error(@!);
    foreach my $line (<FILE>) {
	print $line;
    }
    close(FILE);