open (HTTP,$access_log)||die ("unable to open $access_log $!\n");
	while (my $line2=<HTTP>) {
		chomp $line2;
		my @fields=split /\s+/, $line2;
		my $session=@fields[6];
			my $session=substr($session,(index($session,"?")+12),(index($session,"|"))-(index($session,"?")+12) );
			if (length($session) ==52) {
				&write_it($session_hash{$session},$line2);
			}