#!/usr/bin/perl
use strict;
use warnings;
use Digest::MD5;
use File::Basename;

sub calcular_hash {
    my ($archivo) = @_;

    # Obtener solo el nombre del archivo sin la ruta
    my $nombre_archivo = fileparse($archivo);

    # Calcular el hash MD5 del nombre del archivo
    my $md5 = Digest::MD5->new;
    $md5->add($nombre_archivo);
    my $hash = $md5->hexdigest;

    return $hash;
}

# Obtener el nombre del archivo de la URL
my $archivo_url = $ENV{'REQUEST_URI'};
my $hash_archivo = calcular_hash($archivo_url);

# Imprimir el hash como respuesta
print "Content-type: text/plain\n\n";
print "Hash del nombre del archivo: $hash_archivo\n";