use strict;
use warnings;

my $cmd = qx{id ahmedf 2>&1};
if ($?) {
    print "Please check LDAP\n";
    exit 2;
}
elsif ($cmd =~ /uid/) {
    print "LDAP Ok\n";
    exit 0;
}