Atividade 9 com socket

gistfile1.txt

#!/usr/bin/perl

use IO::Socket::INET;

use strict;

my $server_socket = IO::Socket::INET->new(
'LocalAddr' => '0.0.0.0',
'LocalPort' => '8086',
'Proto' => 'tcp',
'Reuse' => 1,
'Listen' => 1,
) or die "Não foi possíl criar o socket. ($!)\n";

print "\n * Servidor ativo * \n";

my $cliente = $server_socket->accept;

print $cliente " ------------------------------ \r\n";
print $cliente " * Serviço ativo * \r\n";
print $cliente " ------------------------------ \r\n";
print $cliente " Digite a senha de acesso:";

while (<$cliente>) {
my $senha = "$_" ;
my $pass = "abcd1234";
print "$senha";

if ( "$senha" == "$pass" ) {
        print $cliente "Acesso permitido.\n";
} else {
        print $cliente "Acesso negado.\n"
       }
}
print "\n-----------------";
system "sleep 60";