Select Code to Download

       = type [ desttype ] [ repeat ]
           The option requires an argument of the given type. Supporte
+d types are:

           s   String. An arbitrary sequence of characters. It is vali
+d for the argument
               to start with "-" or "--".

use warnings;
use strict;
...
if ( (exists $opt{name}) and ($opt{name} =~ /^-/) ) {
    die "Option name requires an argument\n";
}

my %opt;
my @string_opts = qw(name foo|goo bar);
...
        die "Option $oname requires an argument\n";
    }
}