my ($user, $pass);
my $host  = 'yourserver.yourdomain.com';
my $port  = 389;
my $debug = 0;

GetOptions(
    'h=s' => \$host, 
    'p=s' => \$port, 
    'u=s' => \$user, 
    'w=s' => \$pass, 
    'd+'  => \$debug, 
    'q'   => \&usage
);