Getopt::Tabular - table-driven argument parsing for Perl - View it on GitHub