sub view_file {

    my ($self) = @_;
    my $cgi = $self->query;
    my $cgi_vars = {$cgi->Vars};

    my $order = EN::OrdersDB::OrdersUpdate->retrieve(
        $cgi_vars->{order_id}
    );

    my $filename  = $order->dlc_file_num . ".pdf";
    my $file_blob = $order->pdf_files->pdf_file;
    my $file_size = length ($file_blob);

    $self->header_props(
        -type                       => "application/pdf",
        -attachment                 => $filename,
        -Content_Length             => $file_size,
        -Content_Transfer_Encoding  => "binary",
    );

    return $file_blob;
}

##</code><code>##

Content-Disposition: attachment; filename="DLC12345.pdf" Content-length: 8741 Content-transfer-encoding: binary Content-Type: application/pdf %PDF-1.4 %âãÏÓ 8 0 obj << /Linearized 1 /O 10 /H ( 694 170 ) /L 8741 /E 6007 /N 2 /T 8464 >> endobj xref 8 14 0000000016 00000 n 0000000624 00000