##
#!c:\perl\bin\perl.exe
use strict;
use warnings;
use SOAP::Lite;
use SOAP::Transport::HTTP;
use HTTP::Cookies;
SOAP::Transport::HTTP::CGI
->dispatch_to('emailfind')
->handle;
package emailfind;
sub findingit {
my $som ->match('/Envelope/Header/Body/findingit');
$som ->valueof('/cookie');
my ($e) = split(/-/, $som);
$e = pack ("H*", $som);
return $e;
}