#!/usr/bin/perl

  use strict;
  use warnings;

  use AppConfig;

  my $config = new AppConfig;

  $config->define("module|modules|m=s%" => { DEFAULT => 'off' });

  $config->file(\*DATA) if @ARGV == 0;

  $config->getopt('gnu_getopt');

  my %modules = %{ $config->modules()};

  print "# $_ = $modules{$_}\n" for keys %modules;

  printf("Module: %s = %s\n", $_, $modules{$_})
      for grep { defined $modules{$_} && lc $modules{$_} eq 'on' }
               keys %modules;

_ _DATA_ _
# Configuration File

Module FTP = On
Module WWW = Off