#!/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 :