Allora...ho eseguito questo codice:

codice:
#!/perl
#
# Server

use strict;
use warnings;
use IO::Socket::INET;

my $answer;

my $server = IO::Socket::INET->new(LocalPort => '81',
                                   Type      => SOCK_STREAM,
                                   Reuse     => 1,
                                   Listen    => 1 ) || die "$!\n";

while ( my $client = $server->accept() ) {

   print $client "The time is now: " . scalar(localtime(time())) . "\n";
   close $client;
      
}

close($server);
ebbene l'ho eseguito,poi sono andato nel browser ed ho digitato: http://127.0.0.1:81
Il browser mi ha restituito la data corrente!

Vuol dire che in Perl potrei essere in grado di programmare un piccolo web server?
E a questo web server potrei fargli eseguire gli scripts .cgi?

ad esempio quando digito http://127.0.0.1:81/pages/page.html lo script mi restituisce: GET /pages/page.html HTTP1.1

Credo che intanto mi studiero un pò il protocollo HTTP1.1

Ciao!