if (($um_user_type =~ /F/)) {
            print FLOG "$entry->{usertype}[0] - Address $entry->{mail}[0]\n";	  
            print  "Functional- $entry->{usertype}[0] - Address $entry->{mail}[0]\n";