It looks like you will only write to your log file when

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";
[download]

But, I don't see where you set the variable $um_user_type to the usertype returned from your search, so that if block is never entered.