my $patron_identifier;
my $patron_password;
my $terminator;
my $terminator = q{};
GetOptions(
"a|address|host|hostaddress=s" => \$host, # sip server ip
|| !$patron_identifier
|| !$patron_password )
{
print help();
print &help();
exit();
}
-