#! /usr/bin/perl -w
 
use strict;
use CGI qw(:standard);
 
my $basedir = "/view/dvsview/vobs/ps/projects/";
my $file    = param('file');
 
open PDF,"<$basedir$file" or die("Cannot open $file: $!");
print "Content-type: application/pdf\n\n";
print while (<PDF>);