my @args;

GetOptions ( 'h|help' => sub { $help ++ },
             'debug' => sub { $debug ++ },
             'c|confirm' => \$confirm,
             'i|instance=s' => \$instance,
             's|service=s' => \@services,
             'o|operation=s' => \$operation,
             'm|message=s' => \$message,
             't|timeout=i' => \$timeout,
             'u|owner=s' => \$owner,
             '<>' => sub { push (@args, @_) }
           );

pod2usage ( -verbose => $help ) if $help;
pod2usage ( -verbose => 1 ) unless scalar @services;
pod2usage ( -verbose => 1 ) unless $operation and $message and $owner;