CGI - Envío de ficheros PDF y txt a usuario, CGI en Perl

#!/usr/bin/perl

use CGI;

use strict;

use warnings;

my $cgi = CGI->new();

my $file_name = $cgi->param('filename'); # Nombre del archivo pasado como parámetro

if ($file_name) {

    my $file_path = "/ruta/al/directorio/$file_name"; # Ruta completa al archivo en el servidor

    if (-e $file_path) {

        print $cgi->header(

            -type => 'application/octet-stream',

            -attachment => $file_name

        );

        open my $file_fh, '<', $file_path or die "No se puede abrir el archivo: $!";

        binmode $file_fh;

        while (<$file_fh>) {

            print $_;

        }

        close $file_fh;

    } else {

        print $cgi->header(-status => '404 Not Found');

        print "Archivo no encontrado.";

    }

} else {

    print $cgi->header(-status => '400 Bad Request');

    print "Falta el parámetro 'filename'.";

}