open(FIN,"< $full_path") || print "File Not Found"; 
        binmode FIN;
        $buffer = join '', <FIN>;
    close(FIN);
    print $buffer;

##</code><code>##

open my $fin, '<:raw', $full_path or die WHATEVER;
local \$;  # or use File::Slurp
print <$fin>;

##</code><code>##

#!/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__