gistfile1.perl

            my @keys = map {
                my $k = $env->{'HTTP_SEC_WEBSOCKET_KEY'.$_};
                join('', $k =~ m/\d/g) / scalar @{[$k =~ m/ /g]};
            } (1,2);

            $h->push_write($hs);

            $h->push_write(md5(pack('NN', @keys) . $key3));