Hi, one way might be to use Getopt::Long's OO interface. From the doc:

 use Getopt::Long;
    $p = Getopt::Long::Parser->new;
    $p->configure(...configuration options...);
    # Do some computing here to come up with list of option descriptio
+ns
    if ($p->getoptions(...options descriptions...)) ...
    if ($p->getoptionsfromarray( \@array, ...options descriptions...))
+ ...
[download]

Hope this helps!