#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Long;

my %args;

GetOptions(\%args, 'adduser:s@');

use Data::Dumper; print Dumper(\%args);