PASSING: (-len 1111)
final %opts result: $VAR1 = {
          'switchx' => '',
          'len' => 1111,
          'colors' => []
        };

PASSING: (-l 11)
final %opts result: $VAR1 = {
          'switchx' => '',
          'colors' => [],
          'len' => 11
        };

PASSING: (-lunghezza 12121212)
final %opts result: $VAR1 = {
          'switchx' => '',
          'colors' => [],
          'len' => 12121212
        };

PASSING: (-len AAAA)
Value "AAAA" invalid for option len (number expected)
template for this sub is:
        len|lunghezza=i
        switchx
        tick=i
        colors=s@
default values are:
        colors =
        len = 42
        switchx =


PASSING: (-len 2222 -un known)
Unknown option: un
template for this sub is:
        len|lunghezza=i
        switchx
        tick=i
        colors=s@
default values are:
        colors =
        len = 42
        switchx =


PASSING: (-len 2222 -tick 3333)
final %opts result: $VAR1 = {
          'colors' => [],
          'len' => 2222,
          'tick' => 3333,
          'switchx' => ''
        };

PASSING: (-len 2222 -colors blue -colors cyan -colors orange)
final %opts result: $VAR1 = {
          'len' => 2222,
          'colors' => [
                        'blue',
                        'cyan',
                        'orange'
                      ],
          'switchx' => ''
        };

PASSING: (-len 2222 --switchx)
final %opts result: $VAR1 = {
          'colors' => [],
          'len' => 2222,
          'switchx' => 1
        };

PASSING: (-len 3333 --switchx -- Alpha Bravo)
final %opts result: $VAR1 = {
          'switchx' => 1,
          'colors' => [],
          'len' => 3333
        };
remaining in @_:$VAR1 = [
          'Alpha',
          'Bravo'
        ];