$ perl ./a.pl
$VAR1 = {};
$ perl ./a.pl --adduser
$VAR1 = {
          'adduser' => [
                         ''
                       ]
        };
$ perl ./a.pl --adduser blah
$VAR1 = {
          'adduser' => [
                         'blah'
                       ]
        };