use CGI qw/:standard/;

open PDF, "test.pdf" or die "cd not open test.pdf";
my $buffer;
read PDF, $buffer, -s(PDF);

print
    header(
        -type => "application/pdf\n\n",
    ),
    $buffer;