#!/usr/bin/perl
use strict;
use IO::Socket qw(:DEFAULT :crlf);
use Digest::SHA1 qw(sha1_base64);
use constant MY_PORT => 2323;
$/ = CRLF;
my $quit = 0;
my $port = shift || MY_PORT;
my $sock = IO::Socket::INET->new(Listen => 20, LocalPort => $port, Timeout => 60*60, Reuse => 1)
	or die "Can't create listening socket: $!\n";
while (!$quit)
{
	next unless my $session = $sock->accept;
	while(<$session>)
	{
		my $hash = sha1_base64("some secret");
		if ($hash eq $_)
		{
			warn "Catch something!";
		}
	}
	close $session;
}
close $sock;

#!/usr/bin/perl
use strict;
use CGI ':standart';
use DBI;
use utf8;
use CGI::Cookie;
use Devel::Peek;
use Pack;
use HTML::Entities;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Digest::SHA1 qw(sha1_base64);
use IO::Socket qw(:DEFAULT :crlf);

print "Content-type: text/html\n\n";
my $host = "127.0.0.1";
my $port = 2323;
my $sock = IO::Socket::INET->new("$host:$port")
	or die "Can't create socket: $!\n";
print $sock sha1_base64("some secret");
close $sock;