my $hostname = "ldap.example.com";
  my $ldap = Net::LDAP->new($hostname)
   or die "Unable to connect to LDAP server $hostname: $@\n";