#!/usr/bin/perl
use strict;
use warnings;
use Digest::MD5;
# Leer el nombre del archivo desde la consulta
my $archivo = $ENV{'QUERY_STRING'};
# Calcular el MD5 del nombre del archivo
my $md5 = Digest::MD5->new;
$md5->add($archivo);
my $hash = $md5->hexdigest;
# Imprimir el resultado
print "Content-type: text/html\n\n";
print "MD5 del nombre del archivo";
print "MD5 del nombre del archivo: $hash
";
print "";