Aqui va esteban y Gracias
#!/usr/bin/perl -w
use strict;
#cargamos la información de entrada en la variable hash "inputs"
my %inputs = &input_data();
my $fecha = &get_fecha();
print "Content-type: text/html\n\n";
open (DATABASE, "/var/www/html/scroll/external.html") || print "No se puede abrir el archivo";
flock(DATABASE,2);
print DATABASE "<p><b>$inputs{'autor'} dice</b> $inputs{'mensaje'}<br>$fecha</p>\n";
close (DATABASE) || print "Error al cerrar el archivo";
#Imprimimos el mensaje de todo OK
print "Mensaje guardado correctamente";