my ($subject,$file,$resource,$jserver,$port,$username,$password,$component,
$message, $chatroom, $headline, $debug, $tls, $interactive, $help, $raw, $verbose);
my $res = GetOptions ('subject|s=s' => \$subject,
my ($subject,$file,$resource,$jserver,$port,$username,$password,$component,
$message, $chatroom, $headline, $debug, $tls, $interactive, $help, $raw, $verbose);
my $res = GetOptions ('subject|s=s' => \$subject,