if ($uidok == 0)
{
 #### Used for 
 if ($fqdn eq "dev.com")
 {
  ### Starts Database connection
  ### Query for getting password
  if ($password1 eq $password2) ## $password1 is from client machine and $password2 from database
  {
  #### INCOMPLETE PART ###
  ### Here i want to handle the mails (Path say : usr/domainname/userid/mailfolder/
  ### mail folder contains file1,file2 etc (file1,file1 represents each mail...)
  ### Read the mail from the user mail folder. Each mail is stored as a single file.
  ### I would like to read each mail and download it to the client machine
  }
  else
  {
  print "-ERR access denied $uid $arg $CRLF";
  &TimeIsUp("Incorrect Password... :\($CRLF");
  }
 }
 else
 {
 ### Used for System Users...
 #### WORKING PROPERLY....
 ### The actual code from the module
 ##
 }
}