Este es el codigo:
#!/usr/bin/perl
use strict;
require "cgi-lib.pl";
my $RASpath = "/";
my $RASlist = "$RASpath/RAS.list";
# ---- Leemos el fichero de RASes ----------------------------------------
open (RASES,"$RASlist"); # Abro el archivo
my @RASes = <RASES>; # Leo...
close (RASES); # Cierro el archivo
print "Content-type: text/html\n\n";
print <<HTML;
<HTML>
<HEAD>
<TITLE>Datos</title>
<BODY>
HTML
foreach my $ras (@RASes){
chomp($ras);
print "<h4>$ras</h4><br>\n";
}
print "</BODY>\n";
print "</HTML>\n";
Como veis, basicamente leo los datos de un ...