if (open QMAIL, "$home/.qmail") {
					$maildir = <QMAIL>;
					close QMAIL;
					chomp $maildir;
					$maildir =~ s/\/$//;
					$maildir =~ s/^\.//;
					$maildir =~ s/^\///;
					$maildir = "$home/$maildir";
				}
				else {
				###This part i am using
										$maildir = "/usr/fweb/xyz/abc";
					
				}
				
				opendir MAILDIR, "$maildir/$uid";
				@maildir = grep !/^\./, readdir MAILDIR;
				closedir MAILDIR;
				@maildir = sort @maildir;
				#&StatMailDir(\@maildir,$addedbytes);
				## sPECIAL ##
				
												
				foreach (@maildir) 
				{
				++$messagecnt;
				#### check/create the unique ID code
				$octets{$messagecnt} = -s "$maildir/$uid/$_";
				&UIDL;
				#&PushMessage;

			   ############
				$octets{$messagecnt} += $addedbytes;
				$totaloctets += $octets{$messagecnt};
				
				}