Help for this page
print header('application/pdf'), do { open my $fh, '<:raw', 'minimal.pdf' or die "D'Oh! $!\n"; local $\; <$fh>; };
print header('application/pdf'); { ... local $\; print <$fh>; };
use File::Copy 'copy'; print header('application/pdf'); copy 'minimal.pdf', \*STDOUT or die "D'Oh! $!\n";
www.com | www.net | www.org
No recent polls found