use CGI;
my $q = CGI->new;

my $file = '/home/somelocation/somefile.pdf';

   
open(MYFILE,$file) or return(0);


print $q->header(-type            => 'application/pdf',
   );

   binmode (MYFILE);
   binmode(STDOUT);

   {local $/; print <MYFILE>}
   close MYFILE;