my $ldap = new Net::LDAP($host, port => $port, localaddr => "yourhostname");

##</code><code>##

  use Data::Dumper;
  open($f,'>','/tmp/log);
  print $f Data::Dumper($arg);
  close($f);