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

# Get our options from the commandline; print options if not correct
&usage if not (GetOptions('pass=s' => \$pass, 'user=s' => \$user, 'config=s' => \$config_file));