P5-Getopt-Compact is a project mainly written in ..., it's free.

FreeBSD port for the Getopt::Compact Perl module