#!/usr/bin/perl -T use strict; use warnings; use CGI ':standard'; use CGI::Carp 'fatalsToBrowser'; print header('application/pdf'), do { open my $fh, '<:raw', 'minimal.pdf' or die "D'Oh! $!\n"; local $\; <$fh>; }; __END__