rch [<options>] <LDAP-URL>\n" .
" where <options> are:\n" .
" -f --format {dsml|html|json|ldif} output format\n" .
" -u --user <username> user name (DN) to logon to LDAP se
to logon to LDAP server\n"
if (!$result || scalar(@ARGV) != 1 || ($format && $format !~ /^(dsml|json|ldif|html)$/));
# create a user agent object
my $ua = LWP::UserAgent->new;
$ua->agent("LWPsearch
search using LWP mechanisms
=head1 SYNOPSIS
B<LWPsearch.pl>
[B<-f|--format> {C<dsml>|C<html>|C<json>|C<ldif>}]
[B<-u|--user> I<user>]
[B<-p|--password> I<password>]
B<LDAP-URL>
=head1 DESCRIPTION