absimple.pl

#!/usr/bin/perl

use strict;

use warnings;

use Digest::MD5 qw(md5);

use base qw(Net::Server::HTTP);

__PACKAGE__->run(

port  => [8080],

   );



sub process_http_request {

   my $self = shift;

   my $str = substr( md5($ENV{'REQUEST_URI'}), 0, 4 );

   my $ab;

   # Just do some simple hashing.

   if (unpack('L', $str) % 2 == 0) {

$ab = 'A';

   } else {

            $ab = ‘B’;

   }

   print "X-decision: $ab\n";

   print "Content-type: text/html\n\n";

}