You don't need Getopt::Long to tell you that, you got your logic funny.

use Getopt::Long;
#Print useage info
sub useage {
    print "\nNifty usage info should go here\n";
    exit;
}
my ($pass, $user, $config_file);


GetOptions(
    'pass=s' => \$pass,
    'user=s' => \$user,
    'config=s' => \$config_file
);

if(defined $config ) {
    # do something
}elsif( defined $user and defined $pass){
# do something}
}else{
    useage();
}
[download]

Anyway, I highly reccomend that you use Pod::Usage along with Getopt::Long. See The Dynamic Duo --or-- Holy Getopt::Long, Pod::UsageMan!

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! ** The Third rule of perl club is a statement of fact: pod is sexy.