#!/usr/bin/env perl

use 5.010;

use strict;
use warnings;

use Data::Dumper;
use Getopt::Long qw{ GetOptionsFromArray };

my @arg = split /\s+/, $ARGV[0];
my %option;
GetOptionsFromArray(
    \@arg,
    \%option,
    qw{ password=s server=s token=s username=s },
) or die;

print Dumper \%option;

# ex: set textwidth=72 :

##</code><code>##

$VAR1 = {
          'server' => 'api.blr-ocp1.lab.rbbn.com',
          'password' => 'abc1',
          'username' => 'mgore'
        };