#!c:\perl\bin\perl.exe

use strict;
use warnings;
 
use SOAP::Transport::HTTP;
use CGI;
use Carp;
    
SOAP::Transport::HTTP::CGI
	->dispatch_to('emailfind')
	->handle;

my $cgi = new CGI;  

package emailfind;

sub findingit {
	my $cgi = shift;
	#croak "Error: cgi object not passed" if(!$cgi);  
	my $cookie = $cgi->cookie('WALOGIN');
	return if (!$cookie || $cookie eq 'RESET');   #exit function if cookie empty or is RESET


	my ($e) = split(/-/, $cookie);
	my $email= pack("H*",$e);			# decode email address
	return $email;
	}