Select Code to Download

#!/usr/bin/perl -w
use Net::LDAP;
...
if ($result->count == 1) { exit 0; }
unless($result->count){ exit 1; }